È possibile utilizzare Visual Basic per creare un programma per visualizzare un gruppo di immagini qualsiasi modo si desidera, ad esempio in formato slideshow o miniatura . VB 6.0 ha il controllo ImageList , che memorizza le immagini in una matrice che è possibile accedere con l'indice e visualizzare in uno o più controlli Image . Istruzioni
1

Fare clic su " Progetto " nel menu e poi su " Componenti" dal menu a tendina , oppure premere "CTRL + T" sulla tastiera per aprire il menu Componenti . Scorrere fino a " Microsoft Windows Common Controls 6.0 ( SP6 ) " e fare clic sulla casella di controllo accanto a esso. Fare clic su " OK ". Questo aggiunge diversi nuovi strumenti per la casella degli strumenti , tra cui il controllo ImageList .

2 Fare doppio clic sul controllo ImageList nella casella degli strumenti per aggiungere uno al form. Clicca sul ImageList sul modulo e fare doppio clic sull'opzione " ( personalizzato)" dalla finestra Proprietà . Questo apre una finestra di dialogo per le vostre immagini .

3 Fare clic sulla scheda " Immagini " . Fare clic su " Inserisci immagine " e passare alle immagini. Fare doppio clic su quella desiderata per caricarlo nel vostro ImageList . Ripetere questa procedura per caricare tutte le immagini necessarie . Fare clic su " OK" per chiudere la finestra .
4

Fare doppio clic sul controllo "Immagine" nella casella degli strumenti per aggiungere uno al progetto . Fare clic e trascinare i bordi per ridimensionarla , se necessario. Modificare la proprietà " Stretch " su "True ".
5

Aggiungere due controlli CommandButton dalla Casella degli strumenti al form. Modificare la proprietà " Caption " del primo al " precedente" e la seconda su " Avanti ". Disporre i controlli nel form . Il controllo ImageList non mostrerà in fase di esecuzione , in modo da poter lasciare dove si preferisce .
6

Aprire la finestra del codice . Creazione di una variabile conteggio globale digitando " Dim picNum As Integer " sotto " Option Explicit ". Accedere alla funzione " Form_Load ( ) " . Tipo " picNum = 1 " sulla prima riga e " Image1.Picture = ImageList1.ListImages.Item ( picNum ) . Picture" nella riga successiva . Questo caricherà la prima immagine nel tuo ImageList nella tua casella Per immagini 7

aprire il codice per il pulsante di comando " Avanti" e digitare le seguenti righe : .

Se Non picNum = ImageList1.ListImages.Count Poi

picNum = picNum + 1

Else

picNum = 1

End If

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

aprire il codice per il pulsante di comando " Indietro " e digitare le seguenti righe :

Se Non picNum = 1 Then

picNum = picNum - 1

Else

picNum = ImageList1.ListImages.Count

End If

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

Eseguire il programma e provate i pulsanti. Il controllo immagine viene visualizzata un'immagine dal vostro ImageList . Scorrere le immagini facendo clic sui pulsanti di comando Indietro e Avanti .