События, как их заполучить?

[Moron]

Вот такая задачка:
Есть класс А и класс Б. Они имеют одинаковые по названию методы, свойства и события. Отличается только "наполнение" методов.
В классе С объявил объект MyObject класса Object. Там же в С написал метод

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

Public Sub MakeClass(ClassType As Byte)
  Select Case ClassType
    Case 0
      Set MyObject = New А
    Case 1
      Set MyObject = New Б
  End Select
End Sub

Теперь при вызове этой функции создаётся соответствующий объект. Однако объект без событий! А как сделать чтобы и события из А или Б в С можно было отловить?

[alibek]

Как декларирован класс? Добавь опцию WithEvents.

[Moron]

Как декларирован класс? Добавь опцию WithEvents.

Так декларирован:

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

Private MyObject As Object

а так не работает, ошибку выдаёт, красным выделяет.

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

Private WithEvents  MyObject As Object

[alibek]

Ты в классе его определяешь, не в модуле?

[Moron]

Хм... вроде нет, в смысле не в модуле.
Вот весь код класса С, так наверное понятнее будет

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

Option Explicit
Public Event ClassCEvent()
Public MyObject As Object 'Public WithEvents MyObject As Object
Public Sub MakeClass(ClassType As Byte)
  Select Case ClassType
    Case 0
      Set MyObject = New Class2
    Case 1
      Set MyObject = New Class3
  End Select
End Sub
Public Sub TestClass()
  MyObject.Message
End Sub
Private Sub MyObject_InnerClassEvent()
  RaiseEvent ClassCEvent
End Sub

А вот А и Б, они только месягами отличаются:

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

Option Explicit
Public Event InnerClassEvent()
Public Sub Message()
  MsgBox ("Это класс А") '
  RaiseEvent InnerClassEvent
End Sub

[Konst_One]

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

Private WithEvents MyObject as Class2

[Moron]

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

Private WithEvents MyObject as Class2

Ага. Это проходили. Оно конечно работает, но вот так:

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

Private WithEvents MyObject1 as Class2
Private WithEvents MyObject2 as Class3
Public Sub TestClass(ClassType As Byte)
  Select Case ClassType
    Case 0
      MyObject1.Message
    Case 1
      MyObject2.Message
  End Select
End Sub

Плюсы - работает , минусы - громоздкие селекты, объявлять надо все классы (их 7 и может стать больше).
А в один объект и чтобы с событиями никак?

[Konst_One]

Object не поддерживает WithEvents

[Konst_One]

а может ты скажешь сначала зачем тебе нужны сразу семь одинаковых классов?

[Moron]

Object не поддерживает WithEvents

Ясно теперь, почему не работает...

а может ты скажешь сначала зачем тебе нужны сразу семь одинаковых классов?

Они разные, отличаются "наполнением" методов. Это только в тесте один метод с "месягой" внутри.
Общую задачу долго описывать, придётся практически ТЗ тут выложить .

[alibek]

Может быть "начинку" реализовать в отдельных классах, а событие будет в одном классе?

[Konst_One]

и все равно не понятно зачем нужно управлять разными классами через один, задавая их тип
может хотя бы общую идею своего ТЗ озвучишь? ну, например, надо организовать отображение состояния автоматов, реагирующих на внешниеи воздействия от видов датчиков ....

[alibek]

Да например те же плугины
Нужен единый интерфейс снаружи и разная функциональность внутри.

[Konst_One]

плагины вроде бы не так реализуют обычно, как наш автор пишет

[Moron]

Общую идею, могу. Ща сформулирую.
Надо по расписанию запрашивать с нескольких приборов разных типов различные данные и по этим данным генерить документы. Ю-Зверь должен мочь редактировать расписание, добавлять/удалять задачи опроса.

[Konst_One]

ну так и реализуй это в одном классе, при инициализации задавай вид прибора, а события будут унифицированы

[Moron]

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

Я нашёл решение. Сделал объект, назвал Messager. У него только один метод: RaiseInnerEvent и одно событие InnerClassEvent. При создании объекта С создаётся и Messager, затем ссылка на него передаётся в MyObject любого класса. А классы А и Б работают уже с методом RaiseInnerEvent а не райзят события сами.

[Moron]

Кстати, вся эта возня с событиями понадобилась с одной целью: на ходу отображать ход опроса приборов.

[tyomitch]

2Moron: сорри что пропустил дискуссию, но есть такой интересный оператор Implements. Он бы тебя, похоже, спас.
Объявляешь интерфейс в одном классе и имплементишь его в семи остальных.
Все переменные объявляешь как объекты первого класса.

[Moron]

tyomitch
Ничего, лучше поздно чем никогда Спасибо, сейчас читаю про Implements.
Всем спасибо за советы.

[ANDLL]

2tyomitch:это не касается событий, увы. Я бы посоветовал для реализации однотипных методов использовать Implements, а для ловли событий - vbControlExtender.

[GSerg]

Это КонтролЭкстендер, а не КлассЭкстендер...

[tyomitch]

2tyomitch:это не касается событий, увы. Я бы посоветовал для реализации однотипных методов использовать Implements, а для ловли событий - vbControlExtender.

Или же передачу синка в объект, как например в сабклассере GSerg-а
Говорят, что это ещё и быстрее работает: события связываются по DispID, а методы синка - напрямую.

[Moron]

До сабклассинга GSerg мне ещё как до луны пешком... я пока даже не понимаю что это такое Эх, разбираться ещё и разбираться.