Sie können Visual Basic ein Programm, um eine Gruppe von Bildern eine Möglichkeit gewünscht, wie in einer Diashow oder Thumbnail -Format angezeigt erstellen. VB 6.0 hat ImageList-Steuerelement , die Bilder speichert in einem Array, das Sie mit dem Index zugreifen können und zeigen in einem oder mehreren Image-Steuerelemente . Anleitung
1
Klicken Sie auf " Projekt" auf der Speisekarte und klicken Sie dann auf "Komponenten" aus der Dropdown-Liste , oder drücken Sie "Strg + T " auf der Tastatur, um die Komponenten zu öffnen. Blättern Sie nach unten zu " Microsoft Windows Common Controls 6.0 (SP6 )" und klicken Sie das Kontrollkästchen daneben. Klicken Sie auf " OK". Dies fügt mehrere neue Tools zur Toolbox , einschließlich der ImageList-Steuerelement .
2
Doppelklicken Sie auf das ImageList-Steuerelement in der Toolbox, um eine zu Ihrem Formular hinzuzufügen. Klicken Sie auf das ImageList auf dem Formular und doppelklicken Sie auf das " (Benutzerdefiniert) " aus dem Fenster . Dies eröffnet einen Dialog für Ihre Bilder.
3
Klicken Sie auf " Bilder " klicken. Klicken Sie auf " Bild einfügen " und navigieren Sie zu Ihren Bildern. Doppelklicken Sie auf die, die Sie brauchen, um es in die ImageList laden. Wiederholen Sie diesen Vorgang für alle Bilder, die Sie benötigen hochzuladen. Klicken Sie auf " OK", um das Feld zu schließen .
4
Doppelklicken Sie auf die "Bild"- Steuerelement in der Toolbox , um eine zu Ihrem Projekt hinzuzufügen . Klicken und ziehen Sie die Ränder , um es bei Bedarf zu ändern. Ändern Sie die Eigenschaft "Dehnen" auf "True ".
5
Fügen Sie zwei CommandButton-Steuerelemente aus der Toolbox auf das Formular. Ändern Sie die Eigenschaft "Caption" der ersten " Zurück " und der zweite auf " Weiter". Ordnen Sie Ihre Steuerelemente auf dem Formular . Ihre ImageList-Steuerelement wird zur Laufzeit nicht zeigen , so können Sie ihn lassen , wo immer Sie bevorzugen .
6
Öffnen Sie das Codefenster . Erstellen Sie eine globale Zählvariable durch Eingabe von " Dim PicNum As Integer " unter " Option Explicit ". Greifen Sie auf Ihre " Form_Load () "-Funktion . Type " PicNum = 1" in der ersten Zeile und " Image1.Picture = ImageList1.ListImages.Item ( PicNum ) . Picture" in der nächsten Zeile . Dies wird das erste Bild in Ihrem ImageList in Ihre Bild -Box laden
7
Öffnen Sie den Code für Ihre "Next" Schaltfläche , und geben Sie die folgenden Zeilen: .
If Not PicNum = ImageList1.ListImages.Count Dann
PicNum = PicNum + 1
Else
PicNum = 1
End If
Image1.Picture . = ImageList1.ListImages.Item ( PicNum ) Bild
8
Öffnen Sie den Code für Ihre " Zurück "-Befehl -Taste und geben Sie die folgenden Zeilen:
If Not PicNum = 1 Then
PicNum = PicNum - 1 of
Else
PicNum = ImageList1.ListImages.Count
End If
Image1.Picture = ImageList1 . ListImages.Item ( PicNum ) . Picture
9
Führen Sie das Programm und testen Sie Ihre Tasten . Das Bild -Steuerelement ein Bild von Ihrem ImageList anzuzeigen. Radeln Sie durch die Bilder durch Klicken auf die Zurück und Weiter Schaltflächen .
