Makro erweitern
06.06.2007 10:51:00
achim
wer kann ergänzen
wenn die entsprechende jpd datei nicht da vorhanden ist dann aus dem makro aussteigen oder msgbox bild nicht vorhanden Exit sub oder so.
anbei mein code:
Private Sub SpinButton1_Change()
Dim s As String
SpinButton1.Max = 8
SpinButton1.Min = 1
TextBox1.Text = SpinButton1.Value
Select Case SpinButton1.Value
Case 1
s = "1.jpg"
Case 2
s = "2.jpg"
Case 3
s = "3.jpg"
Case 4
s = "4.jpg"
Case 5
s = "5.jpg"
Case 6
s = "6.jpg"
Case 7
s = "7.jpg"
Case 8
s = "8.jpg"
End Select
Label1.Caption = s
Image1.Picture = LoadPicture("I:\BLS_He\UnfallBilder2007\" & TextBox2 & "\" & s)
End Sub
gruss
achim h.