全局代码
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Public Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Integer, ByVal wMapType As Integer) As Integer
Public Const VK_NUMLOCK = &H90 ' Num Lock
Public Const KEYEVENTF_KEYDOWN = &H0 ' KeyDown
Public Const KEYEVENTF_KEYUP = &H2 ' KeyUp
触发代码
Dim intScanCode As Integer = MapVirtualKey(VK_NUMLOCK, 0)
keybd_event(VK_NUMLOCK, intScanCode, KEYEVENTF_KEYDOWN, 0) ' 按下
keybd_event(VK_NUMLOCK, intScanCode, KEYEVENTF_KEYUP, 0) ' 放
想在win10平板上调用小键盘输入,在论坛上找到以上代码,这个触发代码是需要放在那里?比如是打开某窗口,就放在窗口的事件中吗?