Click here to Skip to main content
15,922,533 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Need help on creating an .exe file that move files on the production server - VS2005 and vb.net Pin
Steve Pullan15-Feb-06 11:41
Steve Pullan15-Feb-06 11:41 
GeneralRe: Need help on creating an .exe file that move files on the production server - VS2005 and vb.net Pin
Dave Kreskowiak15-Feb-06 13:00
mveDave Kreskowiak15-Feb-06 13:00 
GeneralRe: Need help on creating an .exe file that move files on the production server - VS2005 and vb.net Pin
Slow Learner15-Feb-06 13:41
Slow Learner15-Feb-06 13:41 
GeneralRe: Need help on creating an .exe file that move files on the production server - VS2005 and vb.net Pin
Steve Pullan15-Feb-06 14:11
Steve Pullan15-Feb-06 14:11 
GeneralRe: Need help on creating an .exe file that move files on the production server - VS2005 and vb.net Pin
Dave Kreskowiak15-Feb-06 14:17
mveDave Kreskowiak15-Feb-06 14:17 
QuestionReading Icons Pin
Quecumber25615-Feb-06 8:42
Quecumber25615-Feb-06 8:42 
AnswerRe: Reading Icons Pin
Dave Kreskowiak15-Feb-06 10:35
mveDave Kreskowiak15-Feb-06 10:35 
GeneralRe: Reading Icons Pin
Quecumber25615-Feb-06 13:52
Quecumber25615-Feb-06 13:52 
Dave,
I stumbled on how to do this. I have a third party software called IconForge that will allow you to aquire icons from various .DLLs. I'm aquiring them through the Shell32.DLL. I have extracted about 14 of them and using IconForge converted them into 24 and 32 bit icons.

If you are interested here is what I stumpled on. I have modified it for my specific needs.

Private Sub drvSource_Change()
Dim nodX As Node
Dim fs As Object, drv As Object
Dim drvLtr As String
tvwSource.Nodes.Clear
Set fs = CreateObject("Scripting.FileSystemObject")
Set drv = fs.getdrive(fs.GetDriveName(drvSource.Drive))
drvLtr = drv.DriveLetter
Select Case drv.DriveType
Case 0
'Unknown
Case 1
'Removable
If UCase(drvLtr) = "A" Or UCase(drvLtr) = "B" Then
'Floppy drive
Set nodX = tvwSource.Nodes.Add(, , "r", drvSource.Drive, 1, 1)
Else
Set nodX = tvwSource.Nodes.Add(, tvwChild, "r", drvSource.Drive, 4, 4)
End If
Case 2
'Fixed
Set nodX = tvwSource.Nodes.Add(, tvwChild, "r", drvSource.Drive, 2, 2)
Case 3
'Network
Set nodX = tvwSource.Nodes.Add(, tvwChild, "r", drvSource.Drive, 3, 3)
Case 4
'CD-ROM"
Set nodX = tvwSource.Nodes.Add(, tvwChild, "r", drvSource.Drive, 5, 5)
Case 5
'RAM Disk"
Set nodX = tvwSource.Nodes.Add(, tvwChild, "r", drvSource.Drive, 6, 6)
End Select
'Set nodX = tvwSource.Nodes.Add(, tvwChild, "r", drvSource.Drive, drvSource.ListIndex, drvSource.ListIndex)

tvwSource.LineStyle = tvwRootLines
'nodX.EnsureVisible
End Sub

Thank you

Quecumber256
GeneralRe: Reading Icons Pin
Dave Kreskowiak15-Feb-06 15:14
mveDave Kreskowiak15-Feb-06 15:14 
QuestionCreating larger controls Pin
K. Shaffer15-Feb-06 5:47
K. Shaffer15-Feb-06 5:47 
AnswerRe: Creating larger controls Pin
Dave Kreskowiak15-Feb-06 10:22
mveDave Kreskowiak15-Feb-06 10:22 
QuestionHow to Place a MDI Child on Parent form panel control Pin
GetFree123GetFree15-Feb-06 5:03
GetFree123GetFree15-Feb-06 5:03 
AnswerRe: How to Place a MDI Child on Parent form panel control Pin
Dave Kreskowiak15-Feb-06 10:13
mveDave Kreskowiak15-Feb-06 10:13 
GeneralRe: How to Place a MDI Child on Parent form panel control Pin
GetFree123GetFree16-Feb-06 4:29
GetFree123GetFree16-Feb-06 4:29 
QuestionReport Pin
Greeky15-Feb-06 2:45
Greeky15-Feb-06 2:45 
QuestionTextBox Names Pin
Konstantin_progr15-Feb-06 2:41
Konstantin_progr15-Feb-06 2:41 
AnswerRe: TextBox Names Pin
Greeky15-Feb-06 3:04
Greeky15-Feb-06 3:04 
GeneralRe: TextBox Names Pin
Konstantin_progr15-Feb-06 3:41
Konstantin_progr15-Feb-06 3:41 
GeneralRe: TextBox Names Pin
Greeky15-Feb-06 3:51
Greeky15-Feb-06 3:51 
GeneralRe: TextBox Names Pin
Konstantin_progr15-Feb-06 4:05
Konstantin_progr15-Feb-06 4:05 
QuestionStart windows app from windows service Pin
drodriguez15-Feb-06 1:38
drodriguez15-Feb-06 1:38 
AnswerRe: Start windows app from windows service Pin
albertino callientes15-Feb-06 7:18
albertino callientes15-Feb-06 7:18 
Joke[Message Deleted] Pin
Hari Om Prakash Sharma15-Feb-06 0:19
Hari Om Prakash Sharma15-Feb-06 0:19 
AnswerRe: How to show icon keeping flat style=system on button? Pin
Dave Kreskowiak15-Feb-06 7:44
mveDave Kreskowiak15-Feb-06 7:44 
AnswerRe: How to show icon keeping flat style=system on button? Pin
Joshua Quick15-Feb-06 8:28
Joshua Quick15-Feb-06 8:28 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.