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 .