Per salvare una raccolta di immagini in un progetto di Visual Basic, utilizzare un controllo ImageList. Le sue funzioni e metodi consentono di cambiare rapidamente e facilmente le immagini nella applicazione utilizzando un indice; si tiene anche traccia di come esistono molte immagini nella collezione. È possibile visualizzare le immagini utilizzando un controllo PictureBox. Avete opzioni illimitate per come cambiare l'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.

istruzione

1 Aprire un nuovo progetto di Visual Basic. Aggiungere tutto ad un controllo PictureBox, controllo ImageList e due pulsanti per la forma. Disporre "Button1" a sinistra del PictureBox e "Button2" a destra.

2 Fare clic sul controllo "ImageList1" e fare clic su "Scegli Immagini". Nella finestra di dialogo che appare, fare clic sul pulsante "Aggiungi". Spostarsi tra i file e aggiungere le immagini al controllo. Fare clic sul pulsante "OK" quando hai finito.

3 Modificare la proprietà nome per Button1 a "bprevious" e la proprietà di testo per "precedente", la proprietà nome per Button2 a "bnext" e la proprietà di testo per "Immagine successiva" e la proprietà nome per PictureBox1 a "pbPicture."

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

5 Aprire la funzione Form1_Load e digitare quanto segue:

pictureIndex = 0

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

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:

Se pictureIndex = 0 Then

pictureIndex = ImageList1.Images.Count - 1

Altro

pictureIndex = pictureIndex - 1

Finisci se

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

Questa verifica se l'indice di immagine si trova all'inizio della ImageList e in caso affermativo, visualizza l'ultimo elemento della collezione. In caso contrario, si decrementa l'indice per uno, quindi visualizza il valore dell'indice dal ImageList.

7 Aprire la funzione bNext_Click e digitare quanto segue:

Se pictureIndex = ImageList1.Images.Count - 1 Poi

pictureIndex = 0

Altro

pictureIndex = pictureIndex + 1

Finisci se

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

Questa verifica se l'indice dell'immagine è alla fine del ImageList e in caso affermativo, visualizza il primo elemento dell'insieme. In caso contrario, si incrementa l'indice per uno, quindi visualizza il valore dell'indice dal ImageList.