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