Funktion für mehrere Controls
18.06.2007 12:49:32
Andreas
nach langer Suche... nichts gescheites gefunden.
Ich habe auf einer UF eine größere Anzahl von Labels, CheckBoxen und TextBoxen. Alle sind aufsteigend nummeriert. Bei einem Click möchte ich eine Funktion ausführen.
Ich suche eine Möglichkeit, das auslösende Label zu ermitteln und die Funktion entsprechend auszuführen. Das würde eine Menge Codetext ersparen.
Der Beispielcode bezieht sich auf Label1 (die 1 ist durch die jeweilige Nummer zu ersetzen)
Private Sub Label1_Click()
If Me.chkJa1 = False Then
TextBox1 = Label1.ControlTipText
Me.Label1.BackStyle = fmBackStyleOpaque
Me.Label1.Picture = LoadPicture(Pfad & "\yes.ico")
Me.chkJa1 = True
Me.chkNein1 = False
Else
Me.TextBox1 = "---"
Me.Label1.BackStyle = fmBackStyleOpaque
Me.Label1.Picture = LoadPicture(Pfad & "\no.ico")
Me.chkJa1 = False
Me.chkNein1 = True
End If
End Sub
Danke für eure Hilfe.
Und tschüß
andreas
Anzeige