CheckBox создан Controls.Add Как обработать Click? и ещё...

[Kalendula]

Excel
1.Типа:

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

Set A = UserForm1.Controls.Add("Forms.CheckBox.1", "No1", True)


Как и где написать обработчик событий, ну, там Click, Enter, Change для данного Control

2. И ещё:
Как и где описать переменные/процедуры, чтобы переменные были видимы и в процедуре обработки события Click для CommandButton находящегося на листе и в процедуре обработки события Click для CommandButton находящегося в UserForm

Заранее СПСБ ГРМДНЙШ.

[Calvin]

1. Процедуры обработки событий элементов, находящихся в форме, должны находиться в окне кода данной формы
2. Эти переменные могут быть объявлены или в модулях или в окне кода формы в разделе общих объявлений, правда объявление должно сопровождаться ключевым словом Public, напр.

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

Public n as Integer


[Kalendula]

По пункту 2 нет возражений, спасибо, работает...

Пункт 1

Задача: После создания элемента управления методом Add коллекции Controls необходимо также создать и обработчик событий этого элемента управления. Подскажите как это делается.
В design-time (или как его там) это делается практически автоматом и это понятно. А вот как быть с run-time

[GSerg]

private withevents a as control

[Kalendula]

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

Private WithEvents A As Control
...
Set A = UserForm1.Controls.Add("Forms.CommandButton.1", "NO", True)

Run-time error '459':
Object or class does not support the set of events [/code]

[MC]

Private WithEvents cb As CheckBox
...
Set cb = Controls.Add("vb.checkbox", "cb1")
...
Private Sub cb_Click()

End Sub[code][/code]

[GSerg]

И снова, снова гробокопательство процветает

[alibek]

Кто-то явно в Fallout начал переигрывать