Кто знает, как создать событие для пользовательского контрола
Создал свой контрол. Нужно отлавливать событие изменение текста в нём. Но как это реализовать - не помню. Ну завсегдатаи знают, что у меня нет справочников, поэтому, если кто знает, скиньте примерчик в общих чертах.
Народ!
Уточнаяю задачу.
Описываю (внутри контрола):
Public Event KeyPress(ByVal KeyAscii As Long)
Затем в процедуре KeyPress для текстбокса (внутри контрола) описываю:
Private Sub Cells2_KeyPress(Index As Integer, KeyAscii As Integer)
RaseEvent KeyPress(KeyAscii)
End Sub
В форме, на которую выкладываю контрол событие KeyPress отлавливается, но внутри контрола возникает ошибка "Процедура или функция не определена".
В чём может быть загвоздка? Работаю на VB6
Заранее всем спасибо!
С уважением,
М.Шатуров
Народ!
Уточнаяю задачу.
Описываю (внутри контрола):
Public Event KeyPress(ByVal KeyAscii As Long)
Затем в процедуре KeyPress для текстбокса (внутри контрола) описываю:
Private Sub Cells2_KeyPress(Index As Integer, KeyAscii As Integer)
RaseEvent KeyPress(KeyAscii)
End Sub
В форме, на которую выкладываю контрол событие KeyPress отлавливается, но внутри контрола возникает ошибка "Процедура или функция не определена".
В чём может быть загвоздка? Работаю на VB6
Заранее всем спасибо!
С уважением,
М.Шатуров
Народ, простите дурака - ошибка синтаксиса RaseEvent вместо RaiseEvent
Народ, простите дурака - ошибка синтаксиса RaseEvent вместо RaiseEvent
Как же он у тебя скомпиллировался?
Как же он у тебя скомпиллировался?
После исправления ошибки он скомпилировался без проблем. А до этого я его без компиляции подвязывал к тестовому проекту - чтобы не компилить по 100 раз. Оттестировал, а потом откомпилил. Если надо, могу написать, как в 6 VB это делается - очень удобно, кстати.:)