Foxtable(狐表)用户栏目专家坐堂 → 关于窗口文本框焦点的问题。


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

主题:关于窗口文本框焦点的问题。

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


加好友 发短信
等级:婴狐 帖子:60 积分:490 威望:0 精华:0 注册:2014/7/11 9:16:00
关于窗口文本框焦点的问题。  发帖心情 Post By:2014/9/22 13:49:00 [只看该作者]

有一个窗口,里面很多文本框,现在想在一个文本框输入完后按回车键后焦点能移动到指定的文本框?现在按下去焦点是乱的。是在KeyDown里面写代码吗?写了e.Form.Controls("textbox4").Select()   不管用
[此贴子已经被作者于2014-9-22 13:54:10编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/9/22 14:06:00 [只看该作者]

测试 e.Form.Controls("textbox4").Select() 没有问题,注意控件名是区分大小写的

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/9/22 14:07:00 [只看该作者]

另外你要指定回车才起作用
要判断一下按下的键位

if e.keycode = keys.enter then

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/9/22 14:28:00 [只看该作者]

If e.KeyCode = Keys.Enter Then
    e.Cancel = True
    e.Form.Controls("TextBox4").Select
End If

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


加好友 发短信
等级:婴狐 帖子:60 积分:490 威望:0 精华:0 注册:2014/7/11 9:16:00
  发帖心情 Post By:2014/9/22 14:39:00 [只看该作者]

经测试 还是不可用,还是乱的
If e.keycode = keys.enter Then  e.Form.Controls("TextBox3").Select()

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/22 14:50:00 [只看该作者]

If e.keycode = keys.enter Then
    e.Form.Controls("TextBox3").Select()
    e.Cacnel = True
End If

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


加好友 发短信
等级:婴狐 帖子:60 积分:490 威望:0 精华:0 注册:2014/7/11 9:16:00
  发帖心情 Post By:2014/9/22 15:25:00 [只看该作者]

甜老师请教个代码,你看这么写有什么问题吗?为什么没有效果,在离开控件之前中写的

If e.Sender.Value < e.Form.Controls("textbox6").value Then

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/9/22 15:26:00 [只看该作者]

你要实现什么效果?

此时要取Text 才能获得准确的值

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/22 15:28:00 [只看该作者]

If e.Sender.Text < e.Form.Controls("textbox6").Text Then

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


加好友 发短信
等级:婴狐 帖子:60 积分:490 威望:0 精华:0 注册:2014/7/11 9:16:00
  发帖心情 Post By:2014/9/22 15:31:00 [只看该作者]

就是判断这个文本框中的数值比不比另一个文本框中的小。

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