Привет!
Когда дело имеем с окном, то отловить события, которые приходят на окно, не составляет особого труда. Т.е. мы можем в одной ф-ии видеть ВСЕ события которые возникат в окне. А вот как это сделать, когда мы имеем дело с классами? Как "направить" ВСЕ события на одну функцию?

Например, есть Class1 и Class2. Class1 например такого содержания:

Код

'--Begin Class1 Module dim cBC as long Event ChangeProperty(PropertyName as string) Event ChangeBackColor(OldValue as long, NewValue as long) property let BackColor(val as long)   RaiseEvent ChangeBackColor(cBC, val)   cBC=val   RaiseEvent ChangeProperty("BackColor") end property '--End Class1 Module

Это в модуле Class2:

Код

'--Begin Class2 Module dim withevents Cls1 as class1 sub Cls1_ChangeProperty(PropertyName as string)   .... end sub sub Cls1_ChangeBackColor(OldValue as long, NewValue as long)   .... end sub '--End Class2 Module

В приведенном примере я ловил события от моего класса, в оригинале же, заранее не известно какие события могут возникнуть.
Каким образом можно сделать так, чтоб в Class2 события приходили в одну ф-ию?

А если так:

Код

'--Begin Class2 Module dim withevents Cls1 as class1 sub Cls1_ChangeProperty(PropertyName as string)  cls1Event end sub sub Cls1_ChangeBackColor(OldValue as long, NewValue as long)  cls1Event end sub sub cls1Event ... End sub '--End Class2 Module

shilnik
Тогда уж так:

Код

--Begin Class2 Module dim withevents Cls1 as class1 sub Cls1_ChangeProperty(PropertyName as string) cls1Event PropertyName end sub sub Cls1_ChangeBackColor(OldValue as long, NewValue as long) cls1Event ,OldValue, NewValue end sub sub cls1Event(PropertyName as string = "", OldValue as long = 0, NewValue as long = 0) ... End sub '--End Class2 Module

Это сообщение отредактировал(а) Akina - 7.10.2004, 08:56

2Akina
Ну если говорить конкретнее то да, так.

Ребята, спасибо...
но я написал в вопросе, что

Цитата(Mikle @ 4.10.2004, 12:37)

В приведенном примере я ловил события от моего класса, в оригинале же, заранее не известно какие события могут возникнуть.

Короче, мне нужно используя VB получить интерфейс класса. Например так, как в ObjectBrowser...