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


  共有3034人关注过本帖树形打印复制链接

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

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


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


加好友 发短信
等级:四尾狐 帖子:940 积分:6788 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/4/1 9:03:00 [显示全部帖子]

好的。老师。

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


加好友 发短信
等级:四尾狐 帖子:940 积分:6788 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/4/1 10:46:00 [显示全部帖子]

刚试了,这两种方式都无法调出键盘。

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


加好友 发短信
等级:四尾狐 帖子:940 积分:6788 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/4/1 11:17:00 [显示全部帖子]

这个跳出一个很大的键盘,第一不好控制,第二不是全数字。能不能模拟安卓平板上那种小的数字键盘。

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


加好友 发短信
等级:四尾狐 帖子:940 积分:6788 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/4/1 23:06:00 [显示全部帖子]

自己做了一个录入界面,以下是窗口click全局代码:

Forms("操作表").Controls(Forms("操作表").Text).Select()
Sendkeys.Send("{" & e.Sender.Name & "}")

现在数字都输入正常,但是我想输入小数点则出现错误,具体表现是输入小数点之后前边的字符就会消失。

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


加好友 发短信
等级:四尾狐 帖子:940 积分:6788 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/4/2 [显示全部帖子]

再麻烦问下数值组合框的问题:

NumericComboBox

NumericComboBox表示数值输入框,专门用于输入数值。
可直接在数值输入框中输入数值,或利用上下微调按钮调整已经输入的数值,如果单击右边的下拉按钮,将出现一个计算器用于计算和输入数值:


能否实现在空白处单击,则自动调出计算器输入,而不用点击右边的下拉按钮,这样可以提高录入速度,不然每次都需要点击。


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


加好友 发短信
等级:四尾狐 帖子:940 积分:6788 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/4/2 0:04:00 [显示全部帖子]

按照你这个修改,还是和原来一样,小数点以前的数字和小数点都消失了。

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


加好友 发短信
等级:四尾狐 帖子:940 积分:6788 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/4/2 9:48:00 [显示全部帖子]

这个能不能设置小键盘的大小?帮助中找不到资料

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


加好友 发短信
等级:四尾狐 帖子:940 积分:6788 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/4/2 10:33:00 [显示全部帖子]

借用论坛里找的这个示例,我第一个控件绑定字段了,就会出错,其它控件不绑定就正常,但是最终这个数值是要输入到表中的啊。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数字键盘 - 副本.table


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


加好友 发短信
等级:四尾狐 帖子:940 积分:6788 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/4/2 10:55:00 [显示全部帖子]

你在第一个框里输入小数。
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20201111112949.png
图片点击可在新窗口打开查看

 回到顶部
总数 13 1 2 下一页