Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: События д...

Тема: События для коллекции экземпляров

15.06.2007 21:04:14

VVV

26 сообщения

Тема: События для коллекции экземпляров

Народ! возможна ли в VBA такая штука?

Есть модуль класса (назовем его для ясности clsGenEvent), в котором генерируется определенное событие.
Public Event MyEvent
…
Public Sub GenerateEvent
RaiseEvent MyEvent
End sub

Есть другой класс, который содержит коллекцию экземпляров первого класса.

Private MyCollection as Collection
…
Public Sub Init
Dim cls as clsGenEvent
For I = 1 to N ‘ N может оказаться любое число
Set cls = New clsGenEvent
MyCollection.Add cls
Next I
End Sub

Есть также процедура, которая должна запускаться при возникновении события MyEvent

Private Sub DoSomething
Some Operators
End sub

А теперь, внимание – вопрос!!!

Как присобачить эту процедуру к обработчику события MyEvent всех экземпляров коллекции MyCollection?

Если бы был один экземпляр, то все было бы просто:
Public WithEvents cls as clsGenEvent
…
Private Sub cls_MyEvent
DoSomething
End Sub

Но как сделать это для каждого экземпляра коллекции? И возможно ли вообще такое в VBA?
Всем спасибо.

P.S. Создание классов
Автор: VVV от 22.06.2003 2:50:40 Источник ...

15.06.2007 21:04:14

All

4316 сообщения

RE: События для коллекции экземпляров

Если сделать коллекцию из класса, например, для 1 формы, то все будет работать. Это описано в книге Кен Гетц и др. Все события формы в экземлярах работают. Как будет работать событие для собственного класса в коллекции сказать не могу, не было цели.

P.S. Создание классов
Автор: Expert от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: События д...

Поиск

Список форумов

Начало | Forums