Массив с withevents

[GM]

У меня есть класс Socket, мне нужно сделать массив Socketов ,но чтобы одновременно работали события.Вообщем:

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


Dim WithEvents sckClient(0 to 10) as Socket


не работает.[/code]

[GSerg]

И не будет работать.

[codemaster]

[quote="GM"]У меня есть класс Socket, мне нужно сделать массив Socketов ,но чтобы одновременно работали события[quote]

Collection устроит?

[Ennor]

Collection тоже не будет работать. Ничего не будет работать, кроме control array, созданного в design time на форме.

[codemaster]

Collection тоже не будет работать. Ничего не будет работать, кроме control array, созданного в design time на форме.

Уверен ? Напрямую конечно нет , но можно написать обертку

[sanches]

Единственный способ - сделать массив объектов и объявить одну переменную WithEvents
Dim myArray as Collection
Dim WithEvents objSocket as Socket

Присваивая objSocket'у элементы массива можно отловить их события, правда не знаю, как тебе это может помоч, ведь жтот способ применим в основном в таких случаях:

Set objMyObj = MyArray(2)
objMyObj.Name = "Name"
....
Private Sub objMyObj_MyEvent(...)
End sub

то есть присваиваем, изменяем св-во и ловим событие. А как постоянно следить за каждым не знаю. Можно попробовать по таймеру присваивать переменной objSocket элементы...

[Rainbow]

Народ, да вы чего? Конечно, надо обертку писать. Codemaster абсолютно прав. Этот вопрос (по поводу отлова событий от элементов коллекции) жуть какой популярный и решение давно придумано.

1) Пишем класс (SocketWrapper), который содержит сокет и ссылку на некий объект-посредник, у которого будем ловить события

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

Private m_Mediator As Mediator
Private WithEvents m_Socket as Socket
Private m_ID as Long

'устанавливаем ссылку на посредника и записываем ID
Public Sub Init(objMediator as Mediator, nID as Long, objSocket as Socket)
   Set m_Mediator = objMediator
   m_ID = nID
   Set m_Socket = objSocket
end sub

'ловим событие
Public Sub m_Socket_Event(...)
    m_Mediator.GenerateEvent nID
end Sub

2) Класс-посредник (Mediator), который содержит единственный метод, который вызывают "оберточные сокеты" и умеет кидать событие. Его единственное назначение - это сгенерить событие.

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

Public Event SocketEvent(Socket_ID as Long)

Public GenerateEvent(nID as Long)
   RaiseEvent SocketEvent(nID)
end sub

3) там, где нужна эта коллекция, будет лежать коллекция сокетов и объявленный WithEvents посредник. Ловить события будем от посредника - он передаст всю необходимую информацию.
Private WithEvents m_Mediator as Mediator
Private m_ccSockets as Collection

'добавляем i-й элемент (objSocket) в коллекцию

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

Set elem = New SocketWrapper
elem.Init m_Mediator, i, objSocket
m_ccSockets.Add elem

'ловим событие от посредника

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

Public Sub m_Mediator_SocketEvent(nID as Long)
   MsgBox "Словили событие от сокета с номером " & nID
end sub


Пожалуй, все.
Зачем нужен посредник - почему нельзя передать в обертку сразу ссылку на основной класс? Дело в том, что тогда образуются циклические ссылки - родитель содержит коллекцию из объектов, которые имеют ссылку на родителя. Это грозит тем, что эти объекты при выходе из программы не разрушатся. При реализации с посредником такой проблемы нет - разрушится сначала коллекция, потом все ее элементы уничтожат ссылки на посредника, потом уничтожится посредник.

В принципе, в событии можно передавать сам объект (сокет).


vbskb_event vbskb_control vbskb_controlarray

[codemaster]

мои 10 копеек


http://www.mvps.org/emorcillo/vb6/com/index.shtml

EventCollection Class v2.0 - Add event support to Collections

простенько и со вкусом

[Ennor]

Ну, с классами по-другому и не сделать, согласен. А вот с визуальными контролами, боюсь, не прокатит.

[codemaster]

Ну, с классами по-другому и не сделать, согласен. А вот с визуальными контролами, боюсь, не прокатит.

Ты не бойся
Лучше подумай что представлят собой визуальный контрол и чем он отличается от vb класса

[Ennor]

Хе. Ну попробуй как-нить написать что-нить вроде:

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

Private WithEvents X as New CheckBox

Сам и увидишь

[GSerg]

А для визуальных контролов есть массив, в дизайнтайм создаваемый и через параметр index доступный, а потому негоже иные методы применять окромя встроенных...

[Ennor]

А для визуальных контролов есть массив, в дизайнтайм создаваемый и через параметр index доступный, а потому негоже иные методы применять окромя встроенных...

Совершенно верно. Только вот когда возникает необходимость в иерархии типа "массив в массиве", вот тогда начинаются проблемы...

[GM]

Спасибо всем , а то никак выкрутится не мог.