CAD处理键盘按钮被释放（com接口VB语言）

lihao2014

主要用到函数说明：

MxDrawXCustomEvent::KeyUp

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

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

返回0消息继续往下传递,返回1消息不往下传递。

VB代码实现如下：

1. Private Sub MxDrawX1_CustomEvent(ByVal sEventName As String)
   
2. If sEventName = "KeyUp" 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.     End If
    
14. End If

复制代码