Сообщество Чайников

Вопрос

Можно ли перенаправить какое-нибудь событие в класс? Т.е. я хочу сделать автономный класс, который должен отслеживать события Winsock`а. Чтобы его можно было использовать максимально просто:

Mail.SendMail Host, Port

А класс сам воспринимал события от Winsock. Такие как _Connect, _DataArrival и пр.

Ответ

Теоретически нет, для этого надо бы использовать указатели на функции(а в бейсике этого нет), но вот практически такое сделать можно.
Берем код класса. Добавляем туда метод OnClick (для примера).
Берем код формы, добавляем туда:

Public Parent as clsSomeThick
Private Sub Label1_OnClick(…)
parent.OnClick …
End Sub

Но перед использованием формы нужно инициализировать указатель Parent:

Set frmMyForm.Parent = SomeThickObject или
Set frmMyForm.Parent = New clsSomeThick

BSP