Como filtrar ciertas extensiones a mostrar?
Publicado por Fernando (11 intervenciones) el 26/07/2006 21:55:33
Buenas, estoy aprendiendo a trabajar con drivelistbox, dirlistbox y filelist box.
Mi programa carga una imagen seleccionada en un IMAGE y puedo revisar los discos, directorios, etc.
Private Sub Dir1_Change()
File1.Path = Dir1
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Text1.Text = Dir1.List(Dir1.ListIndex) + "\" + File1.List(File1.ListIndex)
Image1.Picture = LoadPicture(Text1.Text)
End Sub
Este es mi codigo, ahora bien como lo que quiero es solo cargar imagenes queria que en el FileListBox solo me salieran: .gif .jpg .bmp esos por lo general. Cual seria la condicion a poner? Gracias.
Mi programa carga una imagen seleccionada en un IMAGE y puedo revisar los discos, directorios, etc.
Private Sub Dir1_Change()
File1.Path = Dir1
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Text1.Text = Dir1.List(Dir1.ListIndex) + "\" + File1.List(File1.ListIndex)
Image1.Picture = LoadPicture(Text1.Text)
End Sub
Este es mi codigo, ahora bien como lo que quiero es solo cargar imagenes queria que en el FileListBox solo me salieran: .gif .jpg .bmp esos por lo general. Cual seria la condicion a poner? Gracias.
Valora esta pregunta


0