So ändern Sie ein Bild in Visual Basic
Um eine Auflistung von Bildern in einem Visual Basic-Projekt zu speichern, verwenden Sie ein ImageList-Steuerelement. Seine Funktionen und Methoden helfen Ihnen schnell und einfach Bilder in der Anwendung, die mithilfe eines Indexes ändern; Es verfolgt die Spuren der auch wie viele Bilder in der Auflistung vorhanden. Sie können Bilder mit einem PictureBox-Steuerelement anzeigen. Sie haben unbegrenzte Möglichkeiten für ein Bild zu ändern, aber jede Option funktioniert mit der gleichen grundlegenden Programmierung beachten. Beispielsweise verwenden Sie "Zurück" und "Weiter" Buttons um die Bilder in eine Kollektion mit einer Indexvariable durchlaufen.
Anweisungen
1 Öffnen Sie ein neues Visual Basic-Projekt. Fügen Sie alle einem PictureBox-Steuerelement, ImageList-Steuerelement und zwei Schaltflächen in das Formular. Ordnen Sie, "Button1" auf der linken Seite der PictureBox und "Button2" auf der rechten Seite.
2 Maustaste auf das Steuerelement "ImageList1" und auf "Bilder auswählen." Klicken Sie im Dialogfeld auf die Schaltfläche "Hinzufügen". Navigieren durch Ihre Dateien, und fügen Sie Bilder an das Steuerelement. Wenn Sie fertig sind, klicken Sie auf die Schaltfläche "OK".
3 Ändern Sie die Name-Eigenschaft für Button1 in "bPrevious" und die Text-Eigenschaft auf "Zurück", die Name-Eigenschaft für Button2 auf "bWeiter" und die Texteigenschaft auf "Nächstes Bild" und die Name-Eigenschaft PictureBox1, "PbPicture."
4 Presse "F7", um das Codefenster zu öffnen. Geben Sie "Dim PictureIndex As Integer" an der Spitze der Klassendeklaration eine Variable erstellen, die Sie als Index für Ihre ImageList verwenden.
5 Öffnen Sie die Form1_Load-Funktion und geben Sie Folgendes ein:
PictureIndex = 0
pbPicture.Image = ImageList1.Images.Item(pictureIndex)
Dies wird der den Wert der Indexvariablen auf NULL gesetzt und die PbPicture mit dem ersten Bild in der Bildliste initialisiert.
6 Öffnen Sie die bPrevious_Click-Funktion und geben Sie Folgendes ein:
Wenn PictureIndex = 0 Then
PictureIndex = ImageList1.Images.Count - 1
Sonst
PictureIndex = PictureIndex - 1
EndIf
pbPicture.Image = ImageList1.Images.Item(pictureIndex)
Dies prüft, ob der Bilderindex ist zu Beginn der ImageList und wenn ja, das letzte Element in der Auflistung zeigt. Ansonsten, es verringert der Index um eins, dann zeigt dieser Indexwert aus der ImageList.
7 Öffnen Sie die bNext_Click-Funktion und geben Sie Folgendes ein:
Wenn PictureIndex = ImageList1.Images.Count - 1 dann
PictureIndex = 0
Sonst
PictureIndex = PictureIndex + 1
EndIf
pbPicture.Image = ImageList1.Images.Item(pictureIndex)
Dies prüft, ob der Bilderindex befindet sich am Ende der ImageList und wenn ja, das erste Element in der Auflistung zeigt. Ansonsten, es erhöht den Index um eins, dann zeigt diesen Indexwert aus der ImageList.