CAD处理键盘被按下事件（com接口VB语言）
主要用到函数说明：
MxDrawXCustomEvent::KeyDown
键盘被按下，详细说明如下：
| 参数 | 说明 |
|---|---|
|
LONG lVk |
是按钮码，如F8,的值为#define VK_F8 0x77 |
返回_T("1")消息不往下传递,否则消息继续往下传递。
例如: VB下，处理F1被按下的代码：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Private Sub MxDrawX1_CustomEvent(ByVal sEventName As String)
If sEventName = "KeyDown" Then
Dim param As MxDrawXLib.MxDrawResbuf
\' 得到事件参数
Set param = MxDrawX1.CustomEventParam
Dim lVk As Long
lVk = param.AtLong(0)
\' #define VK_F1 0x70,十进制值:112
If lVk = 112 Then
MsgBox "F1按下"
\' 设置返回值1表示该事件不再传递处理.
MxDrawX1.SetEventRetString "1"
End If
End If
|