Cómo hacer una galería de imágenes en Visual Basic 6.0

Puede utilizar Visual Basic para crear un programa para mostrar un grupo de imágenes de la forma que desee, como por ejemplo en formato de presentación de diapositivas o en miniatura. VB 6.0 tiene el control ImageList, que almacena imágenes en una matriz que se puede acceder con el índice y la vista en uno o más controles de imagen.

Instrucciones

1 Haga clic en "Proyecto" en el menú y haga clic en "componentes" de la lista desplegable, o pulse "CTRL + T" en el teclado para abrir el menú Componentes. Vaya a "Microsoft Windows Common Controls 6.0 (SP6)" y haga clic en la casilla de verificación al lado de él. Haga clic en Aceptar." Esto añade varias nuevas herramientas a la caja de herramientas, incluyendo el control ImageList.

2 Haga doble clic en el control ImageList en la caja de herramientas para agregar uno a su forma. Haga clic en el ImageList y en su forma de doble clic en el "(Personalizado)" opción en la ventana Propiedades. Esto abre un cuadro de diálogo para sus imágenes.

3 Haga clic en la pestaña "Imágenes". Haga clic en "Insertar imagen" y vaya a sus imágenes. Haga doble clic en el que usted necesita para cargarlo en su ImageList. Repita este proceso para cargar todas las imágenes que necesita. Haga clic en "Aceptar" para cerrar el cuadro.

4 Haga doble clic en el control "imagen" en la caja de herramientas para agregar uno a su proyecto. Haga clic y arrastre sus bordes para cambiar su tamaño si es necesario. Cambie la propiedad "estiramiento" a "True".

5 Agregue dos controles CommandButton del cuadro de herramientas al formulario. Cambie la propiedad "Caption" de los primeros en "Anterior" y de la segunda a "Siguiente". Organizar sus controles en el formulario. Su control ImageList no se mostrará en tiempo de ejecución, por lo que puede dejarlo donde usted prefiera.

6 Abra la ventana de código. Crear una variable de recuento mundial escribiendo "Dim picNum como número entero" en "Opción explícita". Acceder a su "Form Load) (" función. Tipo "picNum = 1" en la primera línea y "Image1.Picture = ImageList1.ListImages.Item (picNum) .Picture" en la siguiente línea. Esto cargará la primera imagen de su ImageList en la barra de Imagen.

7 Abrir el código de su botón de comando "Siguiente" y escriba las siguientes líneas:

Si no picNum = Entonces ImageList1.ListImages.Count

picNum = picNum + 1

Más

picNum = 1

Terminara si

Image1.Picture = ImageList1.ListImages.Item (picNum) .Picture

8 Abrir el código de su botón de comando "Anterior" y escriba las siguientes líneas:

Si no picNum = 1 A continuación,

picNum = picNum - 1

Más

picNum = ImageList1.ListImages.Count

Terminara si

Image1.Picture = ImageList1.ListImages.Item (picNum) .Picture

9 Ejecutar el programa y probar sus botones. El control de la imagen mostrará una imagen de su ImageList. Puede cambiar entre las imágenes haciendo clic en los botones de comando anterior y siguiente.

Consejos y advertencias

• No es necesario utilizar los botones de comando para controlar la forma en que su programa muestra imágenes. Se pueden utilizar varios controles de imagen para mostrar varias imágenes a la vez, o puede utilizar un contador de tiempo que va a cambiar de forma automática la imagen mostrada en el control de imagen cada vez que el intervalo de tiempo termine.