Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
17.01.2004, 18:52
|
|||
|---|---|---|---|
|
|||
обработчик с параметрами |
|||
|
#18+
Допустим, есть функция: Function MyFunc(KeyCode as Integer, Shift as Integer) ... End Function Хочу ПРОГРАММНО сделать ее обработчиком события нажатия клавиши для некоторой формы tmpForm Если делаю так: TmpForm.onKeyPreview = true TmpForm.onKeyDown = "=MyFunc()" то функция MyFunc не получает параметры KeyCode,Shift Если делаю так (что, очевидно, глупо): TmpForm.onKeyPreview = true TmpForm.onKeyDown = "=MyFunc(KeyCode,Shift)" то получаю ошибку: Объект "KeyCode" не определен Может знает кто, как это сделать? Заранее благодарен ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
17.01.2004, 18:59
|
|||
|---|---|---|---|
|
|||
обработчик с параметрами |
|||
|
#18+
TmpForm.onKeyDown = "[Event Procedure]" TmpForm.Module.InsertText _ "Private Sub Form_KeyDown(KeyCode as Integer, Shift as Integer)" _ & vbNewLine & "MyFunc KeyCode, Shift" & vbNewLine & "End Sub" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&mobile=1&tid=1677161]: |
0ms |
get settings: |
9ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
35ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
26ms |
get tp. blocked users: |
1ms |
| others: | 238ms |
| total: | 332ms |
| 0 / 0 |
