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

主要用到函数说明：

MxDrawXCustomEvent::KeyUp

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

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

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

VB代码实现如下：

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub MxDrawX1_CustomEvent(ByVal sEventName As String) If sEventName = "KeyUp" 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释放"     End If End If