- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 方向键控制控件切换的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=123386)
-- 发布时间：2018/8/13 17:23:00
-- 方向键控制控件切换的问题
想用方向键来控制控件的切换
试做做了下，效果不理想，见图
望指点
此主题相关图片如下：qq截图20180813171509.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:方向键.foxdb |
-- 发布时间：2018/8/13 19:03:00
--
e.cancel = True
Select Case e.KeyCode
Case keys.left
e.Form.Controls("textbox2").Select
Case keys.right
e.Form.Controls("textbox5").Select
Case keys.up
e.Form.Controls("textbox1").Select
Case keys.Down
e.Form.Controls("textbox3").Select
Case Else
e.cancel = False
End Select
-- 发布时间：2018/8/13 22:10:00
--
以下是引用有点甜在2018/8/13 19:03:00的发言：
e.cancel = True
Select Case e.KeyCode
Case keys.left
e.Form.Controls("textbox2").Select
Case keys.right
e.Form.Controls("textbox5").Select
Case keys.up
e.Form.Controls("textbox1").Select
Case keys.Down
e.Form.Controls("textbox3").Select
Case Else
e.cancel = False
End Select
e.cancel = True
Select Case e.KeyCode
Case keys.left
e.Form.Controls("textbox2").Select
Case keys.right
e.Form.Controls("textbox5").Select
Case keys.up
e.Form.Controls("textbox1").Select
Case keys.Down
e.Form.Controls("textbox3").Select
Case Else
e.cancel = False
End Select
代码无效，还是不能控制左右
-- 发布时间：2018/8/13 22:51:00
--
代码放到窗口的全局click事件
-- 发布时间：2018/8/14 6:17:00
--
以下是引用有点蓝在2018/8/13 22:51:00的发言：
代码放到窗口的全局click事件
代码放到窗口的全局click事件
也没用
这个只是测试例子，实际项目里有N多个文本框需要用方向键来切换
写窗口的全局里，不好判断是哪个文本框吧
-- 发布时间：2018/8/14 8:51:00
--
以下是引用rogen在2018/8/14 6:17:00的发言：
也没用
这个只是测试例子，实际项目里有N多个文本框需要用方向键来切换
写窗口的全局里，不好判断是哪个文本框吧
我测试，没问题，请认真测试。先让中间的得到焦点，然后点击左/右。