Подскажите, пожалуйста, как можно в форме при нажатии на элемент label, он бы выделялся бы другим цветом и макрос бы определял, какой label был выбран. Элементов label много. Файл во вложении. Спасибо.
Здравствуйте,
Подскажите, пожалуйста, как можно в форме при нажатии на элемент label, он бы выделялся бы другим цветом и макрос бы определял, какой label был выбран. Элементов label много. Файл во вложении. Спасибо.Bregra
Боюсь что для каждого надо прописывать событие Click. А уж как передавть имя, через TAG или имя ..... вам решать. Обработчик может быть общий.
[vba]
Код
Private Sub Label8_Click() Call test(Label8.Name) End Sub
Private Sub Label9_Click() Call test(Label9.Name) End Sub
Private Sub Label10_Click() Call test(Label10.Tag) End Sub
Private Sub Label11_Click() Call test(Label11.Tag) End Sub
Private Sub Label12_Click() Call test(Label12.Tag) End Sub
Private Sub UserForm_Initialize() For Each Mycontrol In Me.Controls Mycontrol.Tag = Mycontrol.Name Next End Sub Sub test(CN) MsgBox CN Controls(CN).BackColor = &H80000005 End Sub
[/vba]
Боюсь что для каждого надо прописывать событие Click. А уж как передавть имя, через TAG или имя ..... вам решать. Обработчик может быть общий.
[vba]
Код
Private Sub Label8_Click() Call test(Label8.Name) End Sub
Private Sub Label9_Click() Call test(Label9.Name) End Sub
Private Sub Label10_Click() Call test(Label10.Tag) End Sub
Private Sub Label11_Click() Call test(Label11.Tag) End Sub
Private Sub Label12_Click() Call test(Label12.Tag) End Sub
Private Sub UserForm_Initialize() For Each Mycontrol In Me.Controls Mycontrol.Tag = Mycontrol.Name Next End Sub Sub test(CN) MsgBox CN Controls(CN).BackColor = &H80000005 End Sub
Я нашел как можно узнать какой элемент выбран, но никак не могу понять, как это привязать к кнопке RUN И не могу еще решить проблему, как сделать так, чтобы если был выбран второй элемент, то первый бы уже не выделялся бы.
Я нашел как можно узнать какой элемент выбран, но никак не могу понять, как это привязать к кнопке RUN И не могу еще решить проблему, как сделать так, чтобы если был выбран второй элемент, то первый бы уже не выделялся бы.Bregra
Цвет формы можно только установить, а поменять можно только цвет текста. (в 2003-м, а в молодых не знаю) А вообще странно, зачем это баловство с надписью на форме. [p.s.]Оказывается можно и менять, не знал. :([/p.s.]
Цвет формы можно только установить, а поменять можно только цвет текста. (в 2003-м, а в молодых не знаю) А вообще странно, зачем это баловство с надписью на форме. [p.s.]Оказывается можно и менять, не знал. :([/p.s.]Wasilich
Если просто убрать проверку, то выбирается несколько элементов, а нужно всего лишь один. Пытаюсь перед началом присвоить nothing. но выдает ошибку.
Если просто убрать проверку, то выбирается несколько элементов, а нужно всего лишь один. Пытаюсь перед началом присвоить nothing. но выдает ошибку.Bregra