| Вопрос: Не могу сгенерировать событие | Добавлено: 21.07.03 02:19 |
Автор вопроса:  S_Serg
|
|
Не получает управления обработчик события, генерируемого объектом. Текст формы такой: Option Explicit Private Sub Form_load() Dim a As New clsTest Set a = New clsTest a.x = 4 Set a = Nothing End Sub Private Sub a_testEvent(parm As Byte) MsgBox "parm =" & parm End Sub У модуля класса текст такой: Option Explicit Private mvarx As Byte Public Event testEvent(parm As Byte) Public Property Let x(ByVal vData As Byte) mvarx = vData RaiseEvent testEvent(mvarx) End Property |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: USA Вопросов: 1 Ответов: 184 |
Профиль | | #1 | Добавлено: 21.07.03 03:40 |
|
Перепиши примерно так: Option Explicit Private WithEvents a As clsTest Private Sub Form_load() Set a = New clsTest a.x = 4 Set a = Nothing Далее по тексту. |
||
Страница: 1 |