как отработать событие Click если кнопка создана програмно?

Пользователь

Сообщений: 19 Регистрация: 01.01.1970

26.02.2010 10:11:13

Программно создаю кнопки на форме в цикле (But1, But2, But3 и т.д.)
Не получается назначить событие на нажатие этой кнопки

Private Sub But1_Click() - не срабатывает. Лучше если получится воткнуть обарботчит событий в ту же процедуру, которая создает кнопки на форме

Pediatr

Пользователь

Сообщений: 19 Регистрация: 01.01.1970

26.02.2010 10:43:32

{quote}{login=The_Prist}{date=26.02.2010 10:32}{thema=}{post}При программном создании элементов для обработки их событий необходимо использовать классы.{/post}{/quote}

Если возможно, можно небольшой пример?

___Нешел вот это_
'_/_/_/Sample2_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
'UserForm Module

Private WithEvents MyLabel1 As MSForms.Label

Private Sub MyLabel1_Click()
MsgBox "Cliked"
End Sub

Private Sub UserForm_Initialize()
Set MyLabel1 = Controls.Add("Forms.Label.1")
MyLabel1.Caption = "What's up"
End Sub
'_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

Но тут проблема если создаю несколько элементов циклом, то отрабатывает событие нажатия только последнего

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#3 26.02.2010 10:58:18 Почитайте эту тему: http://www.programmersforum.ru/showthread.php?t=37287<BR>Вот пример файла из той темы: http://excelvba.ru/XL_Files/Sample__26-02-2010__12-59-21.zip Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Константин Гость	#4 26.02.2010 13:20:01 {quote}{login=EducatedFool}{date=26.02.2010 10:58}{thema=}{post} Почитайте эту тему: http://www.programmersforum.ru/showthread.php?t=37287<BR>Вот пример файла из той темы: http://excelvba.ru/XL_Files/Sample__26-02-2010__12-59-21.zip {/post}{/quote} Спасибо! Пример в точку

Читают тему