Scribd
Cargar
217 vistas3 páginas

Visor de Imágenes en Visual Basic 6.0

Este documento proporciona instrucciones para crear un visor de imágenes en Visual Basic 6.0 utilizando tres controles (DriveListBox, DirListBox y FileListBox) para navegar por las unidades, directorios y archivos de imagen, y mostrar las imágenes seleccionadas en un control Image. Incluye código para establecer los eventos de cambio de los controles de lista y botones para navegar entre imágenes.

Cargado por

juliogj610
Derechos de autor
© Attribution Non-Commercial (BY-NC)
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
217 vistas3 páginas

Visor de Imágenes en Visual Basic 6.0

Este documento proporciona instrucciones para crear un visor de imágenes en Visual Basic 6.0 utilizando tres controles (DriveListBox, DirListBox y FileListBox) para navegar por las unidades, directorios y archivos de imagen, y mostrar las imágenes seleccionadas en un control Image. Incluye código para establecer los eventos de cambio de los controles de lista y botones para navegar entre imágenes.

Cargado por

juliogj610
Derechos de autor
© Attribution Non-Commercial (BY-NC)
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

Tutorial visual basic 6.

0: visor de imagenes propio


Anuncios Google

Opere Forex con [Link] - Opere Forex online. Abra su cuenta gratis ya!

En el siguiente ejemplo utilizamos los tres controles vistos anteriormente para navegar por las unidades del sistema y visualizar los archivos de imgenes en un control Image:

_ Modifique el tamao del formulario con los siguientes valores en las propiedades Height = 6915 y Width = 9135. _ Inserte un control Frame y dentro de este coloque un control DriveListBox, un DirListBox y un FileListBox. Coloque debajo de estos tres controles dos botones de comando. (Observe la imagen). _ Inserte a la derecha otro control Frame y dentro un control Image. (Observe la imagen).

_ En la esquina inferior derecha coloque un botn de comando. (Observe la imagen).

_ Establezca los siguientes valores en las propiedades indicadas de cada control:

_ Haga doble clic sobre el control DriveListBox y dentro del evento Change escriba: On Error Resume Next 'En caso de que cualquier unidad tenga algn error. 'Hace que la lista de directorios mostrada sea la de la unidad seleccionada.

[Link] = [Link] _ Haga doble clic sobre el control DirListBox y dentro del evento Change escriba: 'Hace que la lista de archivo muestre los archivos de la carpeta seleccionada 'en la lista de directorios. [Link] = [Link] _Haga doble clic sobre el control FileListBox y dentro del evento Click escriba: 'Coloca la imagen seleccionada en el control Image. [Link] = LoadPicture([Link] & "" & [Link]) 'Pone informacin de la imagen. [Link] = "Imagen mostrada: " & [Link] _ Dentro del botn de comando << Anterior escriba: On Error Resume Next 'En caso de que la lista este vaca o se llegue al final de la lista. [Link]([Link] - 1) = True 'Regresa a la imagen anterior. _ Dentro del botn de comando Siguiente >> escriba: On Error Resume Next 'En caso de que la lista este vaca o se llegue al final de la lista. [Link]([Link] + 1) = True 'Pasa a la siguiente imagen. _ Dentro del botn Salir escriba: 'Sale del programa. End _ Haga doble clic en cualquier parte del formulario y dentro del evento Load escriba: 'Hace que la lista de archivos solo muestre archivos de imgenes bmp, gif y jpg. [Link] = "*.bmp;*.gif;*.jpg" 'Hace que la imagen mostrada se ajuste al tamao del control Image. [Link] = True _ Corra la aplicacin. _ Utilice el control DriveListBox y seleccione una unidad de su sistema donde tenga carpetas con imgenes. En el control DirListBox aparecern las carpetas de la unidad seleccionada. _ Seleccione la carpeta que contenga las imgenes en sus disco. En el control FileListBox aparecer las imgenes de la carpeta seleccionada. Haga clic sobre una de las imgenes y observe como aparece en el control Image

También podría gustarte