Ejemplos usando el Api de windows para Visual basic

35 - Cuadro de diálogo de windows que permite hacer vista previa de archivos

<Volver> - Anterior - Siguiente



 

 

Este código está basado en un ejemplo sacado de este enlace: -->> y el creador es Giorgi Braussi.

Nota: el ejemplo de esta página está actualizado en el siguiente Link , con modificaciones en el código fuente para poder visualizar archivos png e .ico de 32 bits además de los formatos estándar de visual basic : Módulo de clase para Thumbnail preview

 

Una previa del cuadro de diálogo para visualizar imágenes en vista previa

Dialogo comunes de windows - Vista previa de imagen

El código está compuesto por lo siguiente:

Un módulo de clase llamado ClsVista mediante el cual podemos establecer y recuperar las propiedades del cuadro de diálogo, como por ejemplo la opción del titulo de la ventana, las extenciones de imagenes (propiedad filter), propiedad CancelError, InitDir (directorio por defecto cuando se abre) ... etc..

El PictureBox se crea en forma dinámica mediante el uso del método Add de la colección Controls de los formularios y mediante el Api SetParent principalmente, se coloca el PictureBox dentro del cuadro de diálogo.

En un módulo bas están declaradas todas las funciones, Apis, constantes y estructuras.

Para usar el ejemplo entonces hay que añadir:

Un módulo de clase llamado ClsVistaPrevia, un módulo .bas y un formulario con un Command1.

Esto es solo un comentario para agregar ya que el ejemplo pegandolo ya funciona. Para utilizar el Commondialog hay que hacer los siguientes pasos: Primero se debe crear una nueva instancia de la clase ClsVistaPrevia mediante el uso de New. Luego se le asignan las propiedades del cuadro antes de llamar al método Abrir. Este método es el que crea el Cd y hay que pasarle el Formulario que hace la llamada como parámetro. Por último cuando se descarga el Formulario o cuando sabemos que no usamos mas dicha variable la eliminamos, por ejemplo Set MiClaseDialogo = Nothing

En el código está comentado como funciona.

 

Código En un módulo de clase llamado ClsVistaPrevia:

 

Código dentro de un Formulario:


Código dentro de un módulo Bas

 



Buscar en Recursos vb