Este es un ejemplo que puede ser útil si se quiere listar archivos y carpetas, y obtener automáticamente las extensiones de archivos del directorio actual, y poder aplicar un filtro indicando los tipos y extensiones que necesitemos visualizar, es decir ocultar y mostrar los archivos en la lista. El código fuente utiliza un módulo para cargar los directorios y ficheros, y al terminar ( en el evento EndSearch ), permite cargar en otro Listview las extensiones. Ese listview tiene la propiedad CheckBoxes en True para poder elegir los tipos de archivo a filtrar. Y para aplicar el filtro, se ejecuta el método Filter, enviándole como parámetro las extensiones. Dichas extensiones deben enviarse como una cadena de caracteres separadas por el caracter pipe, por ejemplo : Call mCLvExplorer.Filter ( "bmp|jpg|exe|dll|ocx") Nota. Para utilizar el módulo se deben indicar los siguientes controles: Un ListView ( el que lista el directorio, y tres imagelist). Un ImageList es para la vista de íconos detalle, otro para los íconos grandes, y otro para el LV de extensiones, por ejemplo: - With mCLvExplorer
-
- .ImgListSmall = ImageList1(0)
- .ImgListLarge = ImageList1(1)
-
-
- .ImgListExtensions = imgListExten
-
- .ListView = ListView1
-
-
- Call .FileList(App.Path)
-
- End With
Luego de haber indicado el código anterior, ya se puede utilizar el método Filter para filtrar el contenido de la carpeta. Descargar código fuente Captura de pantalla
2 - Con un ListBox.Este proyecto es igual al anterior pero mas simple, y en vez de utilizar un Listview para la opción de filtro, utiliza un listbox con la propiedad Style en CheckBoxes. Descargar proyecto Captura de pantalla
|