Hallo Zusammen
Ich hoffe ihr könnt mir helfen..
Mein Problem:
Wenn ich in der UserForm auf z.B. imgZ1S1 klicke soll es da ein bestimmtes Bild laden. Das habe ich auch soweit hingekriegt, aber nur habe ich noch mehrere Bilder, bei denen es genau das gleiche machen soll (z.B. Z3S7, Z4S5, usw.). Jetzt möchte ich den Code in eine Funktion auslagern und wenn dann das Bild aufgerufen wird, die Funktion mit Call aufrufen.
Im Moment funktioniert es so:
Private Sub imgZ1S1_Click()
Call Steinladen
End Sub
Sub Steinladen()
Call Pfade
If Stein = 1 Then
imgZ1S1.Picture = LoadPicture(PSchwarz)
Me.Repaint
ElseIf Stein = 2 Then
imgZ1S1.Picture = LoadPicture(PWeiss)
Me.Repaint
End If
End Sub
Jetzt möchte ich eben in Steinladen das imgZ1S1 durch eine Variable ersetzen, die ich beim Funktionsaufruf mitgebe.
|