dia show in userform
05.06.2007 08:01:20
achim
ich lasse mir in form einer dia show bilder anzeigen.
der code ist im wesentlichen o k bis auf das ich mein unterverzeichnis variabel durch die textbox2
bestimmen möchte. das bekomme ich einfach nicht hin.
mein code:
Private Sub SpinButton1_Change()
Dim s As String
SpinButton1.Max = 4
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 Else
MsgBox "keinbild gefunden"
End Select
Label1.Caption = s
Image1.Picture = LoadPicture("I:\BLS_He\UnfallBilder2007\ " & TextBox2 & s)
End Sub
danke
achim h.
Anzeige