CAD处理键盘被按下事件（com接口VB语言）

lihao2014

主要用到函数说明：

MxDrawXCustomEvent::KeyDown

键盘被按下，详细说明如下：

参数	说明
LONG lVk	是按钮码，如F8,的值为#define VK_F8 0x77

返回_T("1")消息不往下传递,否则消息继续往下传递。

例如: VB下，处理F1被按下的代码：

1.         Private Sub MxDrawX1_CustomEvent(ByVal sEventName As String)
   
2.         If sEventName = "KeyDown" Then
   
3.             Dim param As MxDrawXLib.MxDrawResbuf
   
4.             ' 得到事件参数
   
5.             Set param = MxDrawX1.CustomEventParam
   
6. 
   
7.             Dim lVk As Long
   
8.             lVk = param.AtLong(0)
   
9. 
   
10.             ' #define VK_F1             0x70,十进制值:112
    
11.             If lVk = 112 Then
    
12.               MsgBox "F1按下"
    
13.                 ' 设置返回值1表示该事件不再传递处理.
    
14.                 MxDrawX1.SetEventRetString "1"
    
15.             End If
    
16.         End If

复制代码