Sección de controles Ocx para Visual basic , Dll , Activex

210 - Thumbnail preview en cuadro de diálogo

Módulo de clase para hacer un Thumbnail preview en un cuadro de diálogo de windows en visual basic 6.0

Este ejemplo está realizado en base a un proyecto creado por Giorgi Braussi para poder hacer el Thumbnail preview en el cuadro de selección de archivos. También usa una parte de un proyecto programado por Paul Caton que permite usar Hooks y funciones CallBack dentro de un módulo de clase.

El ejemplo base se puede descargar desde este enlace : Descargar ( Gracias a Leandro Ascierto por la ayuda para adaptar los dos proyectos )

La clase permite hacer thumbnail en un diálogo de windows, de los archivos gráficos que soporta vb : bmp, gif, jpg, etc.., y también archivos Png y archivos de íconos de 32 bits.

Nota: No sporta archivos de imágenes formato TIF

Thumbail de Iconos de 32 bits

Thumbnail de archivos png

También tiene tres funciones para cargar los gráficos en un picturebox

La función LoadPng carga un PNG en un PicBox del tamaño del archivo, y se puede usar con un picturebox con el AutoSize en True para visualizarlo al tamaño de la imagen

El párametro que hay que enviarle a dicha función es la ruta y un parámetro opcional para el color del fondo del gráfico png . Por defecto usa como fondo el color del sistema vbButtonFace "cara del botón"

También otra función igual a la anterior createThumbnail , pero esta carga la imagen como ThumbNail, si la misma es mas grande la reduce. El parámetro que hay que enviarle es una variable de tipo Picture o StdPicture, y también el control pictureBox destino

La función LoadIcon es para cargar un ícono en un PicBox, y se le debe pasar el path, el ancho y alto de la imagen y el BackColor

Para poder usar y desplegar el cuadro de diálogo es muy simple y se debe primero crear una instancia de la clase llamada clsCdImage.

Dim cdImage As clsCDImage
Set cdImage = New clsCDImage

Luego para desplegar el cuadro de diálogo, llamar a la función ShowOpenFileDialog que retorna un string con el path del fichero elegido

La función ShowOpenFileDialog tiene como parámetros lo siguiente :

ShowOpenFileDialog (Formulario, Filtros,Directorio inicial, índice del Filtro, Multiselección )

Todo los parámetros son opcionales menos el primero que es el Formulario. El parámetro filtros son las extensiones, que se pueden establecer con el operador Or o + para incluir varias, por ejemplo

.ShowOpenFileDialog Me, PNG + JPG + ICO

El último parámetro es para poder seleccionar múltiples archivos, por defecto ese valor está en false y el cuadro de diálogo solo permite seleccionar un solo fichero (En el zip hay un ejemplo para selecciones múltiples)

Descargar

Enlaces relacionados - Recursos vb 6.0

Buscar en Recursos vb con Google