Обработчик событий для динамически созданного массива контролов - VB

Формулировка задачи:

Option Explicit
Dim WithEvents Button As CommandButton
 
Private Sub Command1_Click()
    MsgBox "Hi"
End Sub
 
Private Sub Form_Load()
    Set Button = Controls.Add("vb.CommandButton", "Command1")
    Button.Visible = 1
End Sub

Вопрос - почему при нажатии на созданную на форме кнопку не происходит событие Click ?

Решение задачи: «Обработчик событий для динамически созданного массива контролов»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Dim WithEvents btn As CommandButton
Dim frm As frmmain
 
Public Sub SetHandler(Control As frmmain)
    Set frm = Control
End Sub
Public Sub SetButton(Control As CommandButton)
    Set btn = Control
End Sub
Private Sub btn_Click()
    frm.MyEvent btn
End Sub
                        

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

12 голосов , оценка 4 из 5

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