Puede utilizar Visual Basic para crear un programa para mostrar un conjunto 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 las 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 . Desplácese hacia abajo para " Microsoft Windows Common Controls 6.0 (SP6 )" y haga clic en la casilla de verificación junto a él. Haga clic en " Aceptar". Esto agrega varias herramientas nuevas de la caja de herramientas , incluyendo el control ImageList .
2

doble clic en el control ImageList del cuadro de herramientas para agregar uno a su forma . Haga clic en el ImageList en el formulario y haga doble clic en la opción " (Personalizado )" de 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 subir todas las fotos que necesita. Haga clic en " Aceptar " para cerrar el cuadro .
4

doble clic en el control " Image " en la caja de herramientas para agregar uno al proyecto . Haga clic y arrastre los bordes para cambiar su tamaño si es necesario. Cambie la propiedad "Stretch " en "True ".
5

Agregue dos controles CommandButton desde el cuadro de herramientas al formulario. Cambie la propiedad " Leyenda " de los primeros en " Anterior " y de la segunda a " Siguiente". Organizar los controles en el formulario. Su control ImageList no se mostrará en tiempo de ejecución , para que puedas dejarlo donde prefieras .
6

Abra la ventana de código. Crear una variable de recuento mundial escribiendo " picNum Dim As Integer " en " Option Explicit ". Acceda a la función " Form_Load ()". Tipo " picNum = 1 " en la primera línea y " Image1.Picture = ImageList1.ListImages.Item ( picNum ) . Picture" en la línea siguiente . Esto cargará la primera imagen de su ImageList en su cuadro de imagen
7

Abra el código para el botón de comando " Siguiente" y escriba las siguientes líneas : .

Si No picNum = ImageList1.ListImages.Count Entonces

picNum = picNum + 1

demás

picNum = 1

End If

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

Abra el código para el botón de comando " Anterior " y escriba las siguientes líneas :

Si No picNum = 1 Y

picNum = picNum - 1

demás

picNum = ImageList1.ListImages.Count

End If

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

ejecutar el programa y poner a prueba sus botones . El control de imagen se visualizará una imagen de su ImageList . Desplazarse por las imágenes haciendo clic en los botones de comando anterior y siguiente .