CAD处理键盘按钮被释放（com接口VB语言）
主要用到函数说明：MxDrawXCustomEvent::KeyUp
键盘按钮被释放，详细说明如下：
参数 说明
iVk 是按钮码，如F8,的值为#define VK_F8 0x77
返回0消息继续往下传递,返回1消息不往下传递。
VB代码实现如下：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
页:
[1]