Как получить имя объекта на котором кликнули?

[RomaS]

Что-то ничего в инете не найду, может запрос не так формулирую.
В общем, в книге эксель на форме есть сотня Label, как получить name или caption того элемента, по которому щелкнули мышкой или еще как-то нужный элемент идентифицировать, что кликнули именно его?
Что-то ничего, в голову не приходит, кроме как в событии label_click каждого элемента присваивать какой-нибудь переменной уникальное значение затем передавать в вызываемую функцию... но ведь это же долго и некрасиво)
Подскажите?

[Busine2009]

RomaS
для каждого Label написать код:

Код: Выделить всё

Private Sub Label1_Click()
MsgBox Label1.Name
End Sub

[RomaS]

вот именно от этого и хотелось уйти. писать для каждого. а их сотня...

Ну тоесть в событии labelX_Click()
должно выполняться что-то типа: I = Useform1.ActiveControl.Name
А вот есть ли в ВБ что-то подобное??

[Busine2009]

RomaS
да я понял твою идею, подумаю.

[Aent]

Почитайте про классы в VBA и использование ключевого слова WithEvents в объявлении переменных.
На форуме куча примеров.

[Avsha]

>кроме как в событии label_click каждого элемента присваивать какой-нибудь переменной уникальное значение затем передавать в вызываемую функцию... но ведь это же долго и некрасиво)

Сколько их штук на форме? а создавать их на форме долго? красиво?

[Busine2009]

Aent
пацак - дай ещё ключевые слова.

[EducatedFool]

Примеры использования классов для решения подобных задач можно поглядеть здесь:
http://programmersforum.ru/showpost.php ... ostcount=8
http://www.programmersforum.ru/showpost ... ostcount=9

[RomaS]

Создавались они копипастом))) их caption динамически меняются в зависимости от некоторых параметров, а при клике на каком-то появляется контекстное меню, вот для этого меню и надо идентифицировать объект под курсором...

Aent, EducatedFool, за подсказку спасибо, буду искать.... пацак))))))

[nilem]

Если тема еще актуальна, то есть один примерчик .xlsm от Уокенбаха - на форме несколько кнопок, после щелчка на каждой из них появляется сообщение с именем и заголовком кнопки. Куда прислать?