处理键盘按钮被释放
VB开发|黄洪辉|2018-06-12 16:19
-
回答:
主要用到函数说明:
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