Wie man eine Galerie von Bildern in Visual Basic 6.0-1

July 13

Sie können Visual Basic verwenden, um ein Programm zum Anzeigen einer Gruppe von Bildern eine Möglichkeit gewünscht, z. B. in der Diashow oder ein Bild-Format zu erstellen. VB 6.0 hat ImageList-Steuerelement, das Bilder in einem Array gespeichert werden, die Sie mit dem Index zugreifen können und in einem oder mehreren Bild-Steuerelementen anzuzeigen.

Anweisungen

1 Klicken Sie auf das Menü "Projekt" und klicken Sie "Komponenten" aus der Dropdown-Liste, oder drücken Sie "STRG + T" auf der Tastatur, um das Komponenten-Menü zu öffnen. Blättern Sie zu "Microsoft Windows Common Controls 6.0 (SP6)" und aktivieren Sie das Kontrollkästchen daneben. Klicken Sie auf "OK". Dadurch wird der Toolbox, darunter das ImageList-Steuerelement mehrere neue Tools hinzugefügt.

2 Doppelklicken Sie auf das ImageList-Steuerelement in der Toolbox zu Ihrem Formular hinzufügen. Klicken Sie auf die ImageList auf dem Formular, und doppelklicken Sie im Fenster Eigenschaften die Option "(Benutzerdefiniert)". Dies eröffnet eine Dialogbox für Ihre Bilder.

3 Klicken Sie auf die Registerkarte "Bilder" und klicken Sie auf "Bild einfügen" und navigieren Sie zu Ihren Bildern. Doppelklicken Sie auf der einen, Sie es in Ihrem ImageList zu laden müssen. Wiederholen Sie diesen Vorgang, um alle Bilder hochladen, die Sie brauchen. Klicken Sie auf "OK", um das Dialogfeld zu schließen.

4 Doppelklicken Sie auf die "Bild"-Steuerelement in der Toolbox zu Ihrem Projekt hinzufügen. Klicken Sie und ziehen Sie seinen Rändern um es bei Bedarf zu ändern. Ändern Sie die Eigenschaft "Stretch" auf "True".

5 Fügen Sie zwei CommandButton-Steuerelemente aus der Toolbox auf das Formular. Ändern Sie die Eigenschaft "Beschriftung" des ersten "Zurück" und die zweite auf "Weiter". Ordnen Sie die Steuerelemente auf dem Formular. Das ImageList-Steuerelement wird nicht zur Laufzeit anzeigen, so dass Sie es lassen können, wo auch immer Sie bevorzugen.

6 Öffnen Sie das Codefenster. Erstellen Sie eine globale Zählvariable durch Eingabe von "Dim PicNum As Integer" unter "Option Explicit". Zugriff auf Ihre "Form_Load()"-Funktion. Typ "PicNum = 1" in der ersten Zeile und "Image1.Picture = ImageList1.ListImages.Item(picNum). Bild"in der nächsten Zeile. Dies wird das erste Bild in der ImageList in Ihrer Bild-Box geladen.

7 Öffnen Sie den Code für Ihre "Next" Befehlsschaltfläche, und geben Sie die folgenden Zeilen:

Wenn nicht PicNum = ImageList1.ListImages.Count Then

PicNum = PicNum + 1

Sonst

PicNum = 1

EndIf

Image1.Picture = ImageList1.ListImages.Item(picNum). Bild

8 Öffnen Sie den Code für Ihre "Previous" Befehlsschaltfläche, und geben Sie die folgenden Zeilen:

Wenn nicht PicNum = 1 Then

PicNum = PicNum - 1

Sonst

PicNum = ImageList1.ListImages.Count

EndIf

Image1.Picture = ImageList1.ListImages.Item(picNum). Bild

9 Führen Sie das Programm und testen Sie Ihre Knöpfe. Das Bild-Steuerelement wird ein Bild aus der ImageList angezeigt. Durchlaufen Sie die Bilder durch Klicken auf die Schaltflächen zurück und weiter.

Tipps & Warnungen

  • Sie müssen nicht mit Befehlsschaltflächen gesteuert wie Ihr Programm Bilder anzeigt. Mehrere Bild-Steuerelemente können Sie mehrere Bilder auf einmal anzeigen, oder können Sie einen Zeitgeber, der automatisch angezeigten Bildes im Bild-Steuerelement ändern wird, wenn das Zeitgeberintervall verstreicht.

SIE KÖNNEN AUCH GERNE