|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.02.2013, 13:10 | #1 |
Пользователь
Регистрация: 26.09.2012
Сообщений: 17
|
Как выполнить функцию в случае нажатия на CheckBox, если данный CheckBox был добавлен через код?
Добрый день!
Подскажите, как можно выполнить функцию в случае нажатия на CheckBox, если данный CheckBox был добавлен через код таким вот способом: UserForm1.Frame1.Controls.Add("form s.checkbox.1", "df", True)? |
14.02.2013, 13:55 | #2 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
например, так:
Код:
Правильно поставленная задача - три четверти решения.
Последний раз редактировалось DiemonStar; 14.02.2013 в 14:03. |
17.02.2013, 10:23 | #3 |
Пользователь
Регистрация: 26.09.2012
Сообщений: 17
|
Никак не решу данную проблему.
У меня в модуле (Module1) есть такая вот функция, с помощью которой на форму добавляются новые OptionButton: Function addob() Dim i As Integer dim top as integer top = 0 i = 10 Do While i >= 0 Set el = UserForm1.Frame4.Controls.Add("Form s.OptionButton.1", "myoption", True) With el .Caption = "Проверка" .top = top .Left = 15 .Width = 250 .GroupName = "groupob" End With top = top + 15 i = i - 1 Loop end Function Теперь для обработчика события добавляю класс (Class1) и следующий код в него: Public WithEvents myoption As MSForms.OptionButton Private Sub myoption_Click() MsgBox 1 End Sub Запускаю! Проверяю - не работает(((( Прошу помощи! |
17.02.2013, 13:53 | #4 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Надо создавать экземпляры класса и хранить из в массиве или коллекции, связывать каждый контрол со своим экземпляром. Код Module1:
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Последний раз редактировалось Казанский; 17.02.2013 в 13:58. |
17.02.2013, 14:09 | #5 |
Пользователь
Регистрация: 26.09.2012
Сообщений: 17
|
Благодарю!
|
17.02.2013, 17:27 | #6 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
А вот здесь есть файл с примером использования классов на форме:
http://excelvba.ru/code/ClassModulesForUserform |
21.02.2013, 13:17 | #7 | ||
Регистрация: 13.02.2013
Сообщений: 7
|
помогите еще пожалуста, срабатывает только на последней созданной странице
Цитата:
Цитата:
|
||
21.02.2013, 15:33 | #8 |
Регистрация: 13.02.2013
Сообщений: 7
|
все разобрался))) тупанул
подскажите как на каждую кнопку назначить отдельное событие? и как обращаться к элементу например textbox созданному таким образом? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
CHECKBOX как с ним работать | enjo | Win Api | 7 | 16.11.2012 19:40 |
Как выполнить цикл перебора значений?Не через многократное вложенное "ЕСЛИ"? | Константи | Microsoft Office Excel | 1 | 30.08.2012 10:52 |
Как обращаться к Checkbox, если они вызываются программно??? | 555Ksenia555 | Microsoft Office Excel | 1 | 24.07.2011 15:05 |
Удаление нескольких записей через checkbox | dmitruha | PHP | 1 | 23.07.2011 16:07 |
Эмуляция нажатия клавиши при отметке Checkbox | delphi_beginner | Win Api | 3 | 02.06.2007 10:07 |