Se è necessario utilizzare più immagini in un progetto Visual Basic , non c'è bisogno di avere decine di controlli PictureBox , mostrare e nascondere quando necessario . Invece , utilizzare il controllo ImageList a mantenere una raccolta di immagini . Con la creazione di una variabile indice , è possibile modificare le immagini visualizzate nel programma. La ImageList stesso ha bisogno di altri controlli per accedere e modificare le immagini attive nel programma , come ad esempio pulsanti di comando . Utilizzare if per verificare il valore dell'indice immagine per evitare di causare errori di runtime nel programma. Istruzioni
1
Aprire il progetto di Visual Basic in modalità progettazione. Fare doppio clic sul controllo " ImageList " per aggiungere uno al progetto . Questo controllo non appare come un controllo fisico sul modulo , in modo che non c'è bisogno di configurare il suo aspetto o il nome per differenziarlo a meno che non si desidera .
2
Clicca sul comando " ImageList1 " si aggiunto per aprire la lista di proprietà . Clicca sulle "Immagini" Proprietà e quindi la casella con " ..." in esso . Verrà visualizzata la finestra di dialogo " Immagine Editor " in cui memorizzare la vostra collezione di immagini .
3
Fare clic sul pulsante "Aggiungi" . Naviga i tuoi file di sistema per le immagini e aggiungerle alla collezione ImageList . È possibile aggiungere più di un'immagine alla volta se sono nelle stesse cartelle . Si noti che le immagini cominciano a indice zero nella lista " Utenti " . Quando hai finito di aggiungere le immagini alla raccolta, fare clic sul pulsante "OK" .
4
Fare doppio clic sul controllo " PictureBox " dalla barra degli strumenti per aggiungere questo controllo alla vostra lista. Inoltre , fare doppio clic sul controllo " Button " due volte per aggiungere due di questi controlli pure. Disporre i controlli per avere i due pulsanti visualizzati in una riga con la PictureBox sopra di loro . Modificare la proprietà "text" per il tasto sinistro su " precedente" e la proprietà "text" per il diritto Button su " Avanti ".
5
Aprire la finestra del codice . Creare una variabile globale per tenere traccia dell'indice dell'immagine digitando il seguente :
Dim imageindex As Short = 0
6
accesso ai sub " Button1_Click " e digitare il seguente :
Se imageindex = 0 Then
imageindex = ImageList1.Images.Count ( ) - 1
PictureBox1.Image = ImageList1.Images.Item ( imageindex ) per < p > Else
imageindex - = 1
PictureBox1.Image = ImageList1.Images.Item ( imageindex ) per
End If
test per vedere dove l' indice è . Se l' utente fa clic sul pulsante "Indietro" e l'indice sta mostrando il primo elemento nella ImageList , l'indice si sposta verso l'ultima immagine in ImageList e lo visualizza. In caso contrario , si decrementa l'indice di uno e mostra che l'indice di immagine
7
accesso ai sub " Button2_Click " e digitare quanto segue : .
Imageindex ImageList1.Images.Count = ( ) - 1 Allora
imageindex = 0
PictureBox1.Image = ImageList1.Images.Item ( imageindex ) per
Else
imageindex + = 1 < br >
PictureBox1.Image = ImageList1.Images.Item ( imageindex ) per
End If
Come il pulsante "Indietro" , questo test per vedere dove l' indice è . Se l'utente fa clic sul pulsante "Avanti " e l'indice sta mostrando l'elemento finale nella ImageList , l'indice torna al primo degli oggetti ImageList e lo visualizza. In caso contrario , incrementa l' indice di uno e visualizza l'immagine .
