Еще раз про обработку событий из массива контролов

[Snussi]

Сразу оговорюсь - поиск по форуму использовали и нашел пример от Sebas'а

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

Sub MyEvent
'code
end if

Dim Ctrls() as mycontrol

Redim Ctrls(0)
Redim preserve Ctrls(Ctrls.GetUppeBound(0)+1)

Ctrls(Ctrls.GetUppeBound(0))=new MyCOntrol
AddHandler (Ctrls(Ctrls.GetUppeBound(0)).ControlEvent,AddressOF MyEvent)

Вопрос номер 1 - по этому примеру: а как определить индекс контрола, вызвавшего это событие?

Вопрос номер 2, он же основной
Как быть если у меня есть несколько "разных" контролов, генерирующих одно и то же событие ControlEvent?
Насколько я знаю, в таком случае надо определять массив Ctrls как Object, но тогда не будет события ControlEvent, на что сразу же будет ругаться компилятор.

[Sebas]

1 - Ctrls.indexOf
2 - Непонятен вопрос

[Snussi]

Пояснения к вопросу 2:
Есть, например, 2 класса:

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

' Класс №1
Public Class FirstClass
    Public Event TestEvent(ByVal EventText As String)
    ' Дальше куча кода
End Class
' Класс №2
Public Class SecondClass
    Public Event TestEvent(ByVal EventText As String)
    ' Дальше куча кода
End Class


т.е., классы разные, но генерируют одно и то же (по "содержанию") событие TestEvent.

Далее, к примеру, мы создаем из них массив, где четные элементы будут FirstClass, а нечетные - SecondClass (естественно, на четность/нечетность опираться нельзя, такое заполнение взято просто для примера)

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

dim Classes(10) as Object
dim i as long
for i=0 to 10
     if int(i/2)=i/2 then
          Classes(i)=new FirstClass
     else
          Classes(i)=new SecondClass
     end if
next i


Далее есть процедура, которая будет обрабатывать события

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

Private sub EventManipulation()
      ' Куча кода
End sub


Как при возникновении события TestEvent в любом из классов вызывать EventManipulation?

[Sebas]

Хехехе.

Интефейс - о чём нить говорит?

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


Public Interface myFace
    Event TestEvent(ByVal EventText As String)
End Interface

' Класс №1
Public Class FirstClass
    Implements myFace

    Public Event TestEvent(ByVal EventText As String) Implements myFace.TestEvents
    ' Дальше куча кода
End Class
' Класс №2
Public Class SecondClass
    Implements myFace

    Public Event TestEvent(ByVal EventText As String)  Implements myFace.TestEvents
    ' Дальше куча кода
End Class


создание

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

dim Classes(10) as myFace '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
dim i as long
for i=0 to 10
     if int(i/2)=i/2 then
          Classes(i)=new FirstClass
     else
          Classes(i)=new SecondClass
     end if
next i


усё!