Как динамически подгрузить массив ocx-ов, имея доступ к их событиям? - VB

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

С одним ActiveX-ом все понятно:

                    Листинг программы
                
Public WithEvents objExt As VBControlExtender
...
Set objExt = Controls.Add('Mon.Monitor', 'myCtl1')
...
Public Sub objExt_ObjectEvent(Info As EventInfo)
End Sub

А если я не знаю заранее количество загружаемых ActiveX-ов? Я могу объявить так:

                    Листинг программы
                
Dim obj1(10) As VBControlExtender

Но не могу

                    Листинг программы
                
Dim WithEvents obj1(10) As VBControlExtender

Решение задачи: «Как динамически подгрузить массив ocx-ов, имея доступ к их событиям?»

textual
                            Листинг программы 
                        
Private WithEvents XB As VBControlExtender
...
Private Sub XB_LostFocus()
        Set XB = Me.ActiveControl
End Sub

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

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

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

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

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