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

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

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

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