Эвенты с загруженных контролов

[Snussi]

В МСДН дан гениальный пример:

Код: Выделить всё

Option Explicit
Private WithEvents extCtl As VBControlExtender

Private Sub Form_Load()
   Set extCtl = Form1.Controls.Add("prjWeeks.WeeksCtl", "ctl1")
   extCtl.Visible = True ' The control is invisible by default.
End Sub


А теперь вопрос: если я хочу создать массив контролов (с индексами и всеми пирогами), как мне отлавливать с них события, т.к. VB ругается на конструкцию

Код: Выделить всё

Private WithEvents extCtl(10) As VBControlExtender


[SHURUP]

Как по мне, то лучше использовать колекцию а не масив контролов

[tyomitch]

Но она тоже не даст отловить события...

[GM]

Я на форумео том же спрашивал.

[alibek]

Эта тема поднималась кучу раз. Решением является коллекция классов и медиатор, осуществляющий обработку событий (вернее, передающий события дальше).
Поищи в форуме постинги Rainbow, она готовый пример давала.

[alibek]

Мда... Я бы плюс влепил.