Foxtable(狐表)用户栏目专家坐堂 → 平板电脑小键盘问题


  共有3033人关注过本帖平板打印复制链接

主题:平板电脑小键盘问题

帅哥哟,离线,有人找我吗?
ycs5801
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:940 积分:6788 威望:0 精华:0 注册:2009/6/24 9:44:00
平板电脑小键盘问题  发帖心情 Post By:2021/3/31 22:46:00 [只看该作者]


 全局代码

 

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平板上调用小键盘输入,在论坛上找到以上代码,这个触发代码是需要放在那里?比如是打开某窗口,就放在窗口的事件中吗?


 回到顶部
总数 22 1 2 3 下一页