DirListBox, DriveListBox y FileListBox
No puedo hacer que me funcione esto, ¿me ayudas por favor?
1 respuesta
Respuesta de fvomaster
1
Ok..
Analiza el siguiente ejemplo, si necesitas más ayuda me avisas..
Para ver el funcionamiento de este pequeño visor de iconos necesitamos colocar en un
Form1 (default) los siguientes controles:
1 Control DriveListBox
1 Control DirListBox
1 Control FileListBox
1 Control Picture1
1 Label1
El Código a colocar es el siguiente:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Picture1.Picture = LoadPicture(Dir1.Path & "/" & File1.FileName)
Label1.Caption = "Icono Seleccionado: " & UCase$(File1.FilaName)
End Sub
Private Sub File1_PathChange()
File1.FileName = "*.ICO"
End Sub
Analiza el siguiente ejemplo, si necesitas más ayuda me avisas..
Para ver el funcionamiento de este pequeño visor de iconos necesitamos colocar en un
Form1 (default) los siguientes controles:
1 Control DriveListBox
1 Control DirListBox
1 Control FileListBox
1 Control Picture1
1 Label1
El Código a colocar es el siguiente:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Picture1.Picture = LoadPicture(Dir1.Path & "/" & File1.FileName)
Label1.Caption = "Icono Seleccionado: " & UCase$(File1.FilaName)
End Sub
Private Sub File1_PathChange()
File1.FileName = "*.ICO"
End Sub
