ник: Lukas
Private Sub Form_Open(Cancel As Integer)
Dim i As Integer
For i = 1 To 500
Me.Controls("lbl" & i).OnClick = "=LabelClick(" & i & ")"
Next
End Sub
Private Function LabelClick(i As Integer)
Debug.Print i
End Function
|
При условии, что все 500 Label имеют имена от "lbl1" до "lbl500"
В процедуре Form_Open мы в цикле назначаем свойству меток OnClick имя функции,
и передаем в функцию значение счетчика, по которому можем в функции LabelClick
идентифицировать метку.