|
|
|
обработчик с параметрами
|
|||
|---|---|---|---|
|
#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:52 |
|
||
|
обработчик с параметрами
|
|||
|---|---|---|---|
Модератор форума
|
|||
|
#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" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.01.2004, 18:59 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32379359&tid=1677161]: |
0ms |
get settings: |
11ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
193ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
31ms |
get tp. blocked users: |
1ms |
| others: | 246ms |
| total: | 513ms |
| 0 / 0 |
