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


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

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

帅哥哟,离线,有人找我吗?
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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
coolbhb
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()

 回到顶部
帅哥哟,离线,有人找我吗?
coolbhb
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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


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

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

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


加好友 发短信
等级:婴狐 帖子:60 积分:490 威望:0 精华:0 注册:2014/7/11 9:16:00
  发帖心情 Post By:2014/9/22 15:37:00 [显示全部帖子]

下面代码没有效果,不知为何,另外想实现的就是如果比较结果前者比后者小的话就弹出对话框并且不能离开控件。

If e.Sender.text < e.Form.Controls("textbox6").text Then
    Messagebox.Show("交费金额不能小于违约金的金额!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

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


加好友 发短信
等级:婴狐 帖子:60 积分:490 威望:0 精华:0 注册:2014/7/11 9:16:00
  发帖心情 Post By:2014/9/22 15:55:00 [显示全部帖子]

今天最后一个问题。下面有两个代码写在同一个文本框,一个是写在Validating,另一个是写在KeyDown 中,现在的问题是,在Validating中弹出窗口要弹出两次,这个怎么解决(按回车的时候)?
validating中的代码

If Val(e.Sender.Text) < Val(e.Form.Controls("textbox6").Text) Then
    Messagebox.Show("交费金额不能小于违约金的金额!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
End If


keydown中的代码

If e.KeyCode = Keys.Enter Then
    e.Cancel = True
    e.Form.Controls("TextBox3").Select
End If
[此贴子已经被作者于2014-9-22 15:56:35编辑过]

 回到顶部