VISUAL BASIC

Beispiel Bildvorschau

Aufgabenstellung: Erstelle eine Bildvorschau mit einem Imagefeld (ohne Fehlerabfrage)!

Lösungsvorschlag:

Private Sub Dir1_Change()
 Form1.File1.Path = Form1.Dir1.Path
End Sub
Private Sub Drive1_Change()
 Form1.Dir1.Path = Form1.Drive1.Drive
End Sub
Private Sub File1_Click()
 dateiname = Form1.File1.filename 'ausgewähltes Bild
 pfad = Form1.File1.Path
 Form1.Image1.Picture = LoadPicture(pfad + "\" + dateiname)
End Sub
Private Sub Form_Load() 'Standardverzeichnis einstellen
 Form1.Drive1.Drive = "d:"
 Form1.Dir1.Path = "d:\daten\bilder"
 Form1.File1.Pattern = "*.bmp;*.ico;*.wmf;*.rle;*.emf;*.gif;*.jpg"
 Form1.File1.Path = "d:\daten\bilder"
End Sub