Форма-Добавить объект-Назначить слушатель события

[tolikman]

Здраствуйте, у меня назрел вопрос. Мне необходимо во время работы формы, добавить в нее некоторое кол-во эл-ов управления, и назначить им слушатели события xxxxx_Click(), причем в событии должна быть функция в которую надо будет передать, например, порядковый номер добавленного элемента. Можно ли назначить такое событие элементу во время работы кода. В родном англ. Helpe, не нашол...

[VictorM]

Если объекты (добавляемые) Вам заранее известны и определены, создайте их на форме сразу , назначьте им соответствующие события и при активации формы скройте Visible = False .
Затем, во время работы формы их можно будет просто отобразить Visible = True по какому-либо событию.

[tolikman]

VictorM, спасибо.
Но их может быть неизвестное кол-во, но не больше 30(и то не факт). подгатовка стольки конечно реальна, но хотелось бы поаккуратнее.

[EducatedFool]

Вот, нашел в книге Профессиональное программирование на VBA в Excel 2002 (автор John Walkenbach)

Если немного переделать, то будет то, что надо.


Листинг 28.5.
Генерация диалогового окна UserForm, содержащего 100 кнопок

Sub AddlOOButtons()
Dim UFvbc As Object 'VBComponent
Dim CMod As Object 'Модуль кода
Dim ctl As Control
Dim cb As CommandButton
Dim n As Integer, с As Integer, r As Integer
Dim code As String
Set UFvbc = ThisWorkbook.VBProject.VBComponents("UserForml")
'Удаление всех элементов управления
For Each ctl In UFvbc.Designer.Controls
UFvbc.Designer.Controls.Remove ctl.Name
Next ctl
'Удаление всего кода VBA
UFvbc.CodeModule.DeleteLines 1, UFvbc.CodeModule.CountOfLines
' Добавление 100 элементов управления CommandButton
n = 1
For r = 1 To 10
For с = 1 To 10
Set cb = UFvbc.Designer.Controls.Add("Forms.CommandButton.1")
With cb
.Width = 22
.Height =2 2
.Left = {c * 26) - 16
.Top = {r * 26) - 16
.Caption = л
End With
'Добавление кола процедуры обработки события
With UFvbc.CodeModule
code = ""
code = code & "Privat e Sub CommandButton" & n & "_Click" & vbCr
code = code & "Msgbox ""Thi s is CommandButton" & n &"""" & vbcr
code = code & "End Sub"
.InsertLine s .CountOfLines + 1, code
End With
n = n + 1
Next с
Next r
' VBA.UserForms.Add("UserFonnl").Show
End Sub

[tolikman]

EducatedFool, ОГРОМНОЕ спасибо!!! разберемся

[EducatedFool]

Вот ещё один из вариантов:
http://forum.developing.ru/showthread.php?t=2681

А набрав в поисковике строку forms.commandbutton.1, сможете обнаружить и другие способы достичь желаемого.

[tolikman]

большое всем спасибо!!!