Haben Sie schon einmal darüber nachgedacht, Ihren eigenen grafischen Browser zu entwerfen? Tatsächlich ist dies überhaupt nicht schwierig, wir können es leicht mit der VB-Programmierung erreichen.
Der Entwurfsprozess des grafischen Browsers ist wie folgt:
1. Starten Sie VB, erstellen Sie eine neue Standardprojektdatei und ändern Sie im Formular Form1 die Beschriftung von Form1 = „Grafikbrowser“.
2. Fügen Sie die Laufwerks-, Ordner- und Dateisteuerelemente aus der Toolbox zum Formular hinzu. Der Name des Laufwerks ist Diver1, der Name des Ordners ist Dir1 und der Name der Datei ist File1, und passen Sie die entsprechenden Positionen an.
3. Fügen Sie das PictureBox-Steuerelement aus der Toolbox zum Formular hinzu. Der Name der PictureBox ist Picture1 und passen Sie die entsprechende Position, Höhe und Breite an.
4. Fügen Sie aus der Toolbox das CommandButton-Steuerelement zum Formular hinzu. Der Name des CommandButtons ist Command1 und passen Sie die entsprechende Position, Höhe und Breite an.
5. Doppelklicken Sie mit der Maus in den leeren Bereich des Formulars, um das Codebearbeitungsfenster zu öffnen, und geben Sie den folgenden Code ein:
PRivateSubForm_Load()
'Legen Sie das Laufwerk und das Verzeichnis, in dem sich die Anwendung befindet, als aktuelles Laufwerk und Verzeichnis fest
„App ist das aktuelle Anwendungsobjekt.“
Drive1.Drive=App.Path
Dir1.Path=App.Path
File1.Pattern="*.bmp;*.ico;*.wmf"
EndSub
6. Doppelklicken Sie auf das Treibersteuerelement im Formular, um das Codebearbeitungsfenster aufzurufen, und geben Sie den folgenden Code ein:
PrivateSubDrive1_Change()
„Wenn sich das ausgewählte Laufwerk ändert, aktualisieren Sie den Inhalt im Verzeichnislistenfeld. Wenn sich das Verzeichnis ändert, lösen Sie das Änderungsereignis des Verzeichnislistenfelds aus.“
Dir1.Path=Drive1.Drive
EndSub
7. Doppelklicken Sie mit der Maus auf die Ordnersteuerung des Formulars, um das Codebearbeitungsfenster zu öffnen. Geben Sie den folgenden Code ein:
PrivateSubDir1_Change()
„Wenn sich das Verzeichnis ändert, aktualisieren Sie den Inhalt des Dateilistenfelds.“
File1.Path=Dir1.Path
EndSub
8. Doppelklicken Sie mit der Maus auf die Dateisteuerung des Formulars, um das Codebearbeitungsfenster zu öffnen. Geben Sie den folgenden Code ein:
PrivateSubFile1_Click()
'Stammverzeichnis, das letzte Zeichen im Pfad ist ein Backslash „/“, wie zum Beispiel: C:/
„Wenn es sich um ein Nicht-Root-Verzeichnis handelt, ist das letzte Zeichen im Pfad kein Backslash „/“
„Um den vollständigen Dateinamen zu erhalten, sollten Sie am Ende des Pfads einen Backslash „/“ hinzufügen
IfRight(File1.Path,1)〈〉"/"Then
'Wenn es sich um ein Nicht-Root-Verzeichnis handelt, fügen Sie am Ende des Pfads einen Backslash „/“ hinzu
tempstring=File1.Path&&"/"&&File1.FileName
Anders
tempstring=File1.Path&&"/"&&File1.FileName
EndIf
'Ausgewählte Dateien laden
Form1.Picture1.Picture=LoadPicture(tempstring)
EndSub
9. Doppelklicken Sie auf das Steuerelement „Schließen“ des Formulars, um das Codebearbeitungsfenster aufzurufen, und geben Sie den folgenden Code ein:
PrivateSubCommand1_Click()
Entlade mich
Ende
EndSub
Speichern Sie die Datei und führen Sie sie aus. Ihr eigener grafischer Browser ist fertig. ->