Как программно вызвать событие Click? - VB

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

Если имя контрола известно на момент написания кода - то без проблем: Call Check1_Click (к примеру). А если не известно? Например: Me.Controls(controlName), где controlName - имя какого-нибудь чекбокса. CallByName не подходит: Click - это событие, а не метод или свойство. Чё делать?!

Решение задачи: «Как программно вызвать событие Click?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim WithEvents vbs As VBControlExtender
 
Private Sub Form_Load()
Set vbs = Me.Controls(1)
End Sub
 
Private Sub vbs_GotFocus()
'
End Sub
 
Private Sub vbs_ObjectEvent(Info As EventInfo)
 
Select Case Info.Name
        Case 'Click'
                'do
                Info.EventParameters(1).Value
End Select
 
End Sub

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

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

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

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

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