Visual Basic

Der praktische Ikonenbetrachter

Franz Fiala

Projektziel

Ein Laufwerkslistenfeld, ein Verzeichnislistenfeld und ein Dateilistenfeld ermöglichen die Auswahl von Bilddateien. Zwei Optionsfelder entscheiden, ob Bitmaps (*.bmp) oder Icons (*.ico) im angewählten Verzeichnis angezeigt werden. Nach erfolgter Auswahl soll die Grafik in einem Anzeigefeld erscheinen. Dateipfad und Dateiname sollen ebenfalls ersichtlich sein.

Lernziel

Anwendung von Laufwerk-, Verzeichnis- und Dateilistenfeld. Einsatz von Options-Schaltflächen, Anzeigen und Bezeichnungsfeldern.

Programmform und Objekte

Programmbeschreibung

Beim Laden der Form wird das aktuelle Laufwerk angezeigt, die obere Optionsschaltfläche für Ikonen eingeschaltet und das Dateiauswahlfilter auf “*.ico” gesetzt.

Beim Anklicken der anderen Option ändert sich diese Einstellung. Wenn das Verzeichnis wechselt, muss der Bezeichner Verzeichnis.Path gespeichert werden.

Die durch Double-Click ausgewählte Bilddatei wird in das Anzeigenfeld geladen und der Dateiname samt Pfad angezeigt. Die Stretch-Eigenschaft passt Grafiken an die Größe des Anzeigenfeldes an. Bei einem auftretenden Fehler soll der Benutzer eine Nachricht erhalten.

Ausbauvorschläge

Darstellung von beliebigen Bildern (*.wmf, *.gif, *.jpg ab VB5) mit Größenanpassung.

Programmcode

Private Sub Datei1_Click()

    On Local Error GoTo fehler
        'Falls Fehler, verzweige zu fehler:
    Bezeichnung4.Caption = Datei1.filename
        'Anzeige des Dateinamens
    Anzeige1.Picture = _
            LoadPicture(Datei1.Path & "\" & _
            Datei1.filename) 'Bild laden     Exit Sub
fehler:                             'Fehler-Auffang-Routine
    MsgBox "Falsche Bild-Datei!"    'Meldung
    Resume Next  'Weiter bei nächster Zeile
End Sub

Private Sub Ende_Click()

 End
End Sub

Private Sub Form_Load()

   AktuellesLW.Caption = Verzeichnis1.Path
   Option1.Value = True
   Datei1.Pattern = "*.ico"
End Sub

Private Sub Laufwerk1_Change()

   Verzeichnis1.Path = Laufwerk1.Drive
         'Korrektur des Pfades
End Sub

Private Sub Option1_Click()

      Datei1.Pattern = "*.ico"
            'ico-Dateien werden gefiltert
End Sub

Private Sub Option2_Click()

     Datei1.Pattern = "*.bmp"
             'BitMap-Dateien werden gefiltert
End Sub

Private Sub Verzeichnis1_Change()

   'Wenn neues Verzeichnis,
   ‘Datei1.Path aktualisieren
   Datei1.Path = Verzeichnis1.Path
   ' Das aktuelle Laufwerk + Pfad anzeigen
   AktuellesLW.Caption = Verzeichnis1.Path
End Sub

Dieses Beispiel ist eine etwas gekürzte Darstellung eines der 26 Projekte aus hermann Köberls Buch “Visual Basic Collection”, eine empfehlenswerte Ergänzung zum VB-Kurs von Christian Zahler, der in der vorigen Ausgabe erschienen ist.

Aus dem Inhalt

Hinweis: Das Buch ist in der Schulbuchliste (Anhang) für BHS und AHS für den Informatikunterricht approbiert.