Обработка событий для динамически созданных элементов управления - VB
Формулировка задачи:
VBA (Office97) позволяет динамически создавать элементы управления (при выполнении программы). Но как обрабатывать события для них? При разработке формы их еще нет, и VBA при выполнении не воспринимает подпрограммы типа CommandButton_Click() (вставленные вручную)для таких элементов!
Решение задачи: «Обработка событий для динамически созданных элементов управления»
textual
Листинг программы
Private WithEvents CMB As CommandButton
Private Sub CMB_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Set CMB = Me.Controls.Add('Forms.CommandButton.1', 'cmdTest', True)
CMB.Top = 1
CMB.Left = 1
CMB.Caption = 'Test'
End Sub