Приветствую!
Для CommandButton1_Click можно написать
a = ActiveControl.Name
А как это сделать для Label1_Click ?
Для CommandButton1_Click можно написать
a = ActiveControl.Name
А как это сделать для Label1_Click ?
26.10.2011 16:05:54
Приветствую!
Для CommandButton1_Click можно написать a = ActiveControl.Name А как это сделать для Label1_Click ? |
|
|
|
26.10.2011 16:11:28
м.б. Caption
|
|
|
|
26.10.2011 16:14:13
Или просто a = Label1
|
|
|
|
26.10.2011 16:28:03
Я обычно в этом случае не особо заморачиваюсь по поводу универсальности кода, и пишу что-то вроде этого:
Private Sub Label1_Click(): CheckLabel 1: End Sub Private Sub Label2_Click(): CheckLabel 2: End Sub Private Sub Label3_Click(): CheckLabel 3: End Sub Private Sub Label4_Click(): CheckLabel 4: End Sub Sub CheckLabel(ByVal n) MsgBox "Label" & n End Sub Ну а если хочется сделать нормально - надо использовать классы 10 строк кода - и никаких проблем, обработчики для отдельных Label не понадобятся. Пример модуля класса (только для чекбоксов, и там много лишнего кода): |
|
|
|
26.10.2011 16:36:53
Сейчас и использую почти такое решение, а с классами связываться в данном случае не хочется.
|
|
|
|
26.10.2011 16:41:04
Судя по ответам EducatedFool и Казанский вопрос себя исчерпал!
Спасибо! |
|
|
|
26.10.2011 22:14:20
Выложил пример использования классов для таких целей на сайте: <BR>
|
||||
|
|
|||