Bilder aus Ordner laden
28.11.2006 16:10:34
Charly
Ich lasse mir mit folgendem Code Bilder ine einem Image anzeigen.
Private Sub Fraeser_Change()
If Me.Fraeser = "3101" Then
Fräsbild.PictureSizeMode = fmPictureSizeModeZoom
Fräsbild.Picture = LoadPicture("C:\Fräser\3101.jpg")
End If
If Me.Fraeser = "4101" Then
Fräsbild.PictureSizeMode = fmPictureSizeModeZoom
Fräsbild.Picture = LoadPicture("C:\Fräser\4101.jpg")
End If
If Me.Fraeser = >" "Then
Fräsbild.PictureSizeMode = fmPictureSizeModeZoom
Fräsbild.Picture = LoadPicture("C:\leeren.jpg")
End If
End Sub
Jetzt meine Frage. In dem Ordner stehen ca 60-80 jpg dateien die immer vierstellig sind. Gibt es eine andere Lösung wie bei diesem CODE, also damit ich nicht 60-80 mal das mit einer extra Nummer schreiben muss.
Es wäre super wenn in der Textbox Me.Fraeser eine Nummer steht diese dann aus dem Ordner geladen und in Image Fräsbild angezeigt wird. Und wenn es die Nummer die in der Textbox steht nicht gibt das Image Fräsbild leer bleibt oder leeren.jpg angezeigt wird.
Gruß Charly