Обработка событий для динамически созданных элементов управления - 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

Оцени полезность:

11 голосов , оценка 4.091 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы