Nwlapcug.com


Come modificare immagini in Visual Basic

Se avete bisogno di utilizzare più immagini nel progetto Visual Basic, è non necessario avere decine di controlli PictureBox, mostrando e nascondendo loro come necessario. Utilizzare invece il controllo ImageList per mantenere un insieme di immagini. Con la creazione di una variabile di indice, è possibile modificare le immagini visualizzate nel vostro programma. Il controllo ImageList stesso ha bisogno di altri controlli per accedere e modificare immagini attivi nel programma, quali pulsanti di comando. Utilizzare se istruzioni per controllare il valore dell'immagine indice per evitare di causare errori di runtime nel vostro 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 viene visualizzato come un controllo fisico della maschera, quindi non dovete configurare l'aspetto o il nome per differenziarlo a meno che non si desidera.

2

Fare clic sul controllo "ImageList1" Hai aggiunto per aprire il relativo elenco di proprietà. Fare clic sulle proprietà di "Immagini" e poi la casella con "..." in esso. Verrà visualizzata la finestra di dialogo "Editor di raccolta di immagini" dove si archivia la tua raccolta di foto.

3

Fare clic sul pulsante "Aggiungi". Navigare i file di sistema per immagini e aggiungerli all'insieme ImageList. È possibile aggiungere più immagini alla volta, se sono nelle stesse cartelle. Si noti che le immagini si avvia all'indice zero nell'elenco "Membri". Terminata l'aggiunta di immagini alla raccolta, fare clic sul pulsante "OK".

4

Fare doppio clic sul controllo "PictureBox" dalla barra degli strumenti per aggiungere questo controllo alla tua 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 il controllo PictureBox sopra di loro. Modificare la proprietà "text" per il pulsante sinistro al "Precedente" e la proprietà "text" per il tasto destro per "Avanti".

5

Aprire la finestra di codice. Creare una variabile globale per tenere traccia di indice dell'immagine digitando quanto segue:

Dim imageIndex As Short = 0

6

Accedere il sub "Button1_Click" e digitare quanto segue:

Se imageIndex = 0 Then

imageIndex = ImageList1.Images.Count() - 1

PictureBox1. image = ImageList1.Images.Item(imageIndex)

Altro

imageIndex-= 1

PictureBox1. image = ImageList1.Images.Item(imageIndex)

End If

Questo test per vedere dove si trova l'indice. Se l'utente fa clic sul pulsante "Indietro" e l'indice sta mostrando il primo elemento nel controllo ImageList, l'indice si sposta all'ultima immagine nel controllo ImageList e lo Visualizza. In caso contrario, si decrementa l'indice da uno e schermi che indice di immagine.

7

Accedere il sub "Button2_Click" e digitare quanto segue:

Se imageIndex = ImageList1.Images.Count() - 1 Then

imageIndex = 0

PictureBox1. image = ImageList1.Images.Item(imageIndex)

Altro

imageIndex + = 1

PictureBox1. image = ImageList1.Images.Item(imageIndex)

End If

Come il pulsante "Indietro", questo test per vedere dove si trova l'indice. Se l'utente fa clic sul pulsante "Avanti" e l'indice sta mostrando l'elemento finale nel controllo ImageList, che restituisce l'indice per il primo di ImageList items e lo Visualizza. In caso contrario, si incrementa l'indice di uno e visualizza quell'immagine.