Label-Feld - Haken setzen
22.08.2008 09:47:03
Dirk
Ich habe ein Formula entwickelt mit über 20 enthaltenen Label_Feldern, über die ich einen Haken setzen kann. Theoretisch müsste ich den Code nun für jedes Label-Feld erstellen. Gibt es eine Möglichkeit, den Code so umzustricken, dass ich diesen für alle Label-Felder nutzen kann?
Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
_
ByVal Y As Single)
If Label1.Caption = "X" Then
Label1.Caption = ""
ElseIf Label1.Caption = "" Then _
Label1.Caption = "X"
End If
End Sub
Gruß
Dirk L.