CAD处理键盘按钮被释放（VB语言）-CFANZ编程社区

CAD处理键盘按钮被释放（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`

0 条评论