以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教,win8平板中,进入文本框时,如何自动调用系统软键盘  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53914)

--  作者:ericsky
--  发布时间:2014/7/17 22:29:00
--  请教,win8平板中,进入文本框时,如何自动调用系统软键盘

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

请老师指点,谢谢!

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

--  作者:有点甜
--  发布时间: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
--  发布时间:2014/7/18 9:32:00
--  
以下是引用ericsky在2014-7-17 22:29:00的发言:

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

请老师指点,谢谢!

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

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


--  作者:ericsky
--  发布时间: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
--  发布时间: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
--  发布时间:2014/9/29 23:29:00
--  
以下是引用lihe60在2014-7-18 9:32:00的发言:

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


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