CAD处理键盘被按下事件，com接口VB语言 - 梦想CAD控件

2024-04-10 02:24•mysql•阅读 3326

主要用到函数说明：

MxDrawXCustomEvent::KeyDown

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

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

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

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

Private Sub MxDrawX1_CustomEvent(ByVal sEventName As String)

If sEventName ="KeyDown"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按下"

\' 设置返回值1表示该事件不再传递处理.

MxDrawX1.SetEventRetString"1"

End If