Как привязать к контролу исполняемый код?

[Kibor]

Завёл модуль формы. Создал на нём контрол. Принципиально важно: создал не мышкой, а программно (огромное спасибо Parovoz’у!!!). А процедуру обработки клика на этом контроле программа в упор не видит. Создаю такой же контрол мышкой – та же самая процедура срабатывает. Prist предупреждал об этом, но предложенные им в качестве решения игры с модулями классов оказались слишком сложны для меня. Не может быть, чтобы не существовало решения попроще.

Вот код, которым создаётся контрол:

Код: (vb)

Private Sub UserForm_Initialize()
    Me.Height = 234: Me.Width = 440
    With Me.Controls.Add(bstrProgID:="Forms.CommandButton.1")
         .Name = "CommandButton1"
         .Left = 5
         .Top = 16
         .Height = 24
         .Width = 78
         .Caption = "Кнопка"
    End With
End Sub

Код, который должен обрабатывать клик:

Код: (vb)

Private Sub CommandButton1_Click()
    Range("Work!M1").Value = "Кнопка"
End Sub

Чего-то здесь не хватает!


P.S. Prist! А как отформатировать код? Чё-то у меня ничего не получается.

[Дмитрий Щербаков(The_Prist)]

Prist! А как отформатировать код?

А вверху форума даже кнопка есть: помощь Там подробно написано как использовать теги. Выделяете текст(в данном случае код) и жмете кнопку VBCode. Вроде не сильно сложная процедура.
По самому вопросу: Работа с модулями классов
Других решений нет вообще. Либо не создавать контролы программно, либо через модули классов.

Тут в чем дело: когда Вы создаете из формы событие для контрола(выбрав его из вып.меню для контрола или дважды на нем щелкнув), то VBA сам регистрирует данное событие для этого контрола. Тоже происходит и в случаях, когда контрол был создан руками(не кодом). конрол и его события автоматом регистрируются самим VBA. Когда вы такое событие просто пишете - то для контролов, созданных на лету это ничего не значит, т.к. сами контролы не зарегистрированы в системе как событийные. Поэтому события для них вообще не обрабатываются. И решается это исключительно созданием класса для контрола.

[Kibor]

М-дааа. Вот уж, что называется наповал! И всё равно, Prist, спасибо за участие.

[Юрий М]

А в чём сакральный смысл программного создания контрола?