Foxtable(狐表)用户栏目专家坐堂 → 请教,win8平板中,进入文本框时,如何自动调用系统软键盘


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

主题:请教,win8平板中,进入文本框时,如何自动调用系统软键盘

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


加好友 发短信
等级:小狐 帖子:361 积分:3810 威望:0 精华:0 注册:2012/4/16 20:20:00
请教,win8平板中,进入文本框时,如何自动调用系统软键盘  发帖心情 Post By:2014/7/17 22:29:00 [只看该作者]

离开文本框后,又能自动关闭软键盘。

请老师指点,谢谢!

[此贴子已经被作者于2014-7-17 22:33:46编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/18 9:30: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) ' 放


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


加好友 发短信
等级:狐神 帖子:6835 积分:43243 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2014/7/18 9:32:00 [只看该作者]

以下是引用ericsky在2014-7-17 22:29:00的发言:

离开文本框后,又能自动关闭软键盘。

请老师指点,谢谢!

[此贴子已经被作者于2014-7-17 22:33:46编辑过]

平板win8能使用狐表,你用的是哪款平板?


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


加好友 发短信
等级:小狐 帖子:361 积分:3810 威望:0 精华:0 注册:2012/4/16 20:20:00
  发帖心情 Post By:2014/7/18 12:43:00 [只看该作者]

以下是引用lihe60在2014-7-18 9:32:00的发言:

平板win8能使用狐表,你用的是哪款平板?


我试了没什么问题,目前只在dell v8p 8寸小板试了下,初步运行正常,也发现有一些问题:

1、文本框,组合框等太小,手指操作不方便

2、表格和字体太小

如果购买微软刚发布的 surface 3 pro (12寸),上面的问题应该不存在,但我个人觉得太大了,便携性不够,个人最多只接受10寸的平板


如果要想应用平板,就要专门以平板模式设计界面,


一定要买win 8  pro的平板,rt的板不能安装 .exe文件


我想,电脑+平板,应该是数据库软件运用的趋势,希望狐表能够多支持平板开发



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


加好友 发短信
等级:小狐 帖子:361 积分:3810 威望:0 精华:0 注册:2012/4/16 20:20:00
  发帖心情 Post By:2014/7/18 12:44:00 [只看该作者]

以下是引用有点甜在2014-7-18 9:30: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) ' 放


真心感谢!!


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


加好友 发短信
等级:二尾狐 帖子:577 积分:4596 威望:0 精华:0 注册:2013/3/3 1:52:00
  发帖心情 Post By:2014/9/29 23:29:00 [只看该作者]

以下是引用lihe60在2014-7-18 9:32:00的发言:

平板win8能使用狐表,你用的是哪款平板?


肯定不是安卓系统了。微软平板有WIN8系统的。


 回到顶部