Per salvare una raccolta di immagini in un progetto Visual Basic , utilizzare un controllo ImageList . Le sue funzioni e metodi consentono di cambiare rapidamente e facilmente le immagini nell'applicazione utilizzando un indice , ma tiene anche traccia del numero di immagini presenti nella collezione . È possibile visualizzare le immagini utilizzando un controllo PictureBox . Avete opzioni illimitate per come modificare un'immagine, ma ogni opzione funziona con la stessa programmazione di base in mente. Ad esempio, utilizzare i pulsanti " Indietro " e " Avanti" per scorrere le immagini in una collezione con una variabile indice . Istruzioni
1

Aprire un nuovo progetto di Visual Basic . Aggiungi tutti di un controllo PictureBox , il controllo ImageList e due pulsanti per la forma . Disporre " Button1 " a sinistra della PictureBox e " Button2 " a destra .
2

destro del mouse sul controllo " ImageList1 " e fare clic su " scegliere le immagini . " Nella finestra di dialogo che viene visualizzata , fare clic sul pulsante "Aggiungi" . Spostarsi tra i file e aggiungere il comando di immagini . Fare clic sul pulsante "OK " quando hai finito .
3

Modificare la proprietà Name per Button1 per " bPrevious " e la proprietà Text su " precedente ", la proprietà nome per Button2 a " bnext "e la proprietà text su" Immagine successiva "e la proprietà nome per PictureBox1 a" pbPicture . "
4

Premere" F7 "per aprire la finestra del codice . . Tipo " Dim pictureIndex As Integer " nella parte superiore della dichiarazione di classe per creare una variabile si utilizza come indice per il vostro ImageList
5

Apri la funzione Form1_Load e digitare quanto segue :
< p > pictureIndex = 0

pbPicture.Image = ImageList1.Images.Item ( pictureIndex ) per

Questo imposta il valore della variabile indice a zero e inizializza il pbPicture con la prima immagine nell'elenco delle immagini .
6

Aprire la funzione bPrevious_Click e digitare quanto segue:

pictureIndex = 0 Then

pictureIndex = ImageList1.Images.Count - 1
< p > Else

pictureIndex = pictureIndex - 1

End If

pbPicture.Image = ImageList1.Images.Item ( pictureIndex ) per

controlli per vedere se l'indice di immagine si trova all'inizio della ImageList e in caso affermativo , visualizza l'ultimo elemento dell'insieme . In caso contrario , si decrementa l'indice per uno, quindi visualizza il valore di indice della ImageList
7

Aprire la funzione bNext_Click e digitare quanto segue: .

PictureIndex = ImageList1.Images . count - 1 Poi

pictureIndex = 0

Else

pictureIndex = pictureIndex + 1

End If

pbPicture.Image = ImageList1 . Images.Item ( pictureIndex ) per

questo modo si controlla per vedere se l'indice di immagine si trova alla fine della ImageList e in tal caso , viene visualizzato il primo elemento dell'insieme . In caso contrario , si incrementa l'indice per uno, quindi visualizza il valore di indice della ImageList .