Visualizador
En este programa vamos a crear un visualizador de imágenes con Visual. En primer lugar vamos a diseñar el siguiente formulario,
seguiremos colocando uncontrol "DirListBox" debajo de la lista desplegable de la unidad de disco,
El siguiente paso es colocar el control de archivos para poder escoger la imagen a visualizar,
Ahoracolocaremos un control "IMAGE" donde cargaremos la vista previa de la imagen seleccionada de la lista de archivos,
El siguiente paso será colocar un "LABEL" donde visualizaremos laruta y el nombre del archivo seleccionado.
Finalmente colocaremos un "COMMANDBUTTON" para finalizar la aplicación,
Una vez tenemos el diseño realizado nos faltara introducirtodo el código para que el programa funcione.
Accederemos a la pantalla de código haciendo "2 clics" en el "Drive1" (que es la lista de unidades de disco) e introduciremos en su rutina el siguientecódigo,
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Después haremos "2 clics" en el "Dir1" (lista de carpetas) e introduciremos,
Private Sub Dir1_Change()
File1.Path = Dir1.PathEnd Sub
Finalmente haremos "2 clics" en "File1" (lista de archivos) y copiaremos el código que permita mostrar en el "LABEL" la ruta de archivos,
Private Sub File1_Click()
Label1.Caption = Dir1.Path +"\" + File1.FileName
End Sub
en la misma rutina del FILE1_CLICK tendremos que hacer que se visualice la imagen en el control "IMAGE1", para ello copiaremos,
Image1.Picture = LoadPicture(Dir1.Path +"\" + File1.FileName)
de forma que la rutina del click en el file1 queda,
Private Sub File1_Click()
Label1.Caption = Dir1.Path + "\" + File1.FileName
Image1.Picture = LoadPicture(Dir1.Path + "\" +File1.FileName)
End Sub
Ahora tan solo nos queda indicar que tipo de imágenes queremos visualizar, para ello desde la pantalla de diseño del formulario seleccionaremos el control de "FILE1" y desde la...
Regístrate para leer el documento completo.