DirListBox, DriveListBox y FileListBox

No puedo hacer que me funcione esto, ¿me ayudas por favor?

1 Respuesta

Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas