Um eine Sammlung von Bildern in einer Visual Basic- Projekt zu speichern , verwenden Sie ein ImageList-Steuerelement . Seine Funktionen und Methoden helfen Ihnen schnell und einfach ändern Bilder in der Anwendung unter Verwendung eines Index , sondern auch verfolgt, wie viele Bilder gibt es in der Sammlung. Sie können Bilder mit einem PictureBox-Steuerelement . Sie haben unbegrenzten Möglichkeiten , wie man ein Bild zu ändern, aber jede Option funktioniert mit den gleichen grundlegenden Programmierung im Auge. Verwenden Sie z. B. " Zurück " und "Weiter ", um durch die Bilder in einer Sammlung mit einer Index-Variablen . Anleitung
1
Öffnen Sie ein neues Visual Basic-Projekt . Fügen Sie alle einem PictureBox-Steuerelement , ImageList -Steuerelement und zwei Buttons auf dem Formular. Anordnen " Button1 " auf der linken Seite der PictureBox und " Button2 " auf der rechten Seite .
2
rechten Maustaste auf das " ImageList1 " Steuerung und klicken Sie auf " Wählen Sie Bilder . " In dem Dialogfeld, das angezeigt wird, klicken Sie auf die Schaltfläche "Hinzufügen" . Navigieren Sie durch Ihre Dateien und Bilder hinzufügen, um die Steuerung. Klicken Sie auf die Schaltfläche "OK" , wenn Sie fertig sind.
3
Ändern Sie den Namen Eigenschaft für Button1 auf " bPrevious " und der Text -Eigenschaft auf " Zurück ", der Name -Eigenschaft für Button2 zu " bNext " und der Text -Eigenschaft auf" nächstes Bild " und der Name -Eigenschaft für PictureBox1 zu" pbPicture . "
4
Presse " F7 " zum Öffnen des Code-Fenster . . Type " Dim BILDINDEX As Integer " an der Spitze der Klasse Erklärung , eine Variable, die Sie verwenden als Index für Ihre ImageList erstellen
5
Öffnen Sie die Form1_Load Funktion und geben Sie den folgenden :
< p> BILDINDEX = 0
pbPicture.Image = ImageList1.Images.Item ( BILDINDEX )
Dies legt den Index variablen auf Null und initialisiert den pbPicture mit dem ersten Bild in der Liste.
6
Öffnen Sie die bPrevious_Click Funktion und geben Sie den folgenden :
Wenn BILDINDEX = 0 Then
BILDINDEX = ImageList1.Images.Count - S. 1
Else
BILDINDEX = BILDINDEX - 1 of
End If
pbPicture.Image = ImageList1.Images.Item ( BILDINDEX )
Diese prüft, ob das Bild Index ist zu Beginn des ImageList und wenn ja, zeigt das letzte Element in der Auflistung. Ansonsten dekrementiert es den Index nach dem anderen, dann zeigt dass Indexwert von der ImageList
7
Öffnen Sie die bNext_Click Funktion und geben Sie die folgenden Schritte aus: .
Wenn BILDINDEX = ImageList1.Images . Count - 1 Dann
BILDINDEX = 0
Else
BILDINDEX = BILDINDEX + 1
End If
pbPicture.Image = ImageList1 . Images.Item ( BILDINDEX )
Diese prüft, ob das Bild Index ist am Ende der ImageList und wenn ja, wird das erste Element in der Auflistung . Ansonsten ist es erhöht den Index nach dem anderen, dann zeigt , dass die Index-Wert aus der ImageList .