以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于窗口文本框焦点的问题。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57281)

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

--  作者:Bin
--  发布时间:2014/9/22 14:06:00
--  
测试 e.Form.Controls("textbox4").Select() 没有问题,注意控件名是区分大小写的
--  作者:Bin
--  发布时间:2014/9/22 14:07:00
--  
另外你要指定回车才起作用
要判断一下按下的键位

if e.keycode = keys.enter then

--  作者:lsy
--  发布时间:2014/9/22 14:28:00
--  
If e.KeyCode = Keys.Enter Then
    e.Cancel = True
    e.Form.Controls("TextBox4").Select
End If

--  作者:coolbhb
--  发布时间:2014/9/22 14:39:00
--  
经测试 还是不可用,还是乱的
If e.keycode = keys.enter Then  e.Form.Controls("TextBox3").Select()

--  作者:有点甜
--  发布时间:2014/9/22 14:50:00
--  
If e.keycode = keys.enter Then
    e.Form.Controls("TextBox3").Select()
    e.Cacnel = True
End If

--  作者:coolbhb
--  发布时间:2014/9/22 15:25:00
--  
甜老师请教个代码,你看这么写有什么问题吗?为什么没有效果,在离开控件之前中写的

If e.Sender.Value < e.Form.Controls("textbox6").value Then
--  作者:Bin
--  发布时间:2014/9/22 15:26:00
--  
你要实现什么效果?

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

--  作者:有点甜
--  发布时间:2014/9/22 15:28:00
--  
If e.Sender.Text < e.Form.Controls("textbox6").Text Then
--  作者:coolbhb
--  发布时间:2014/9/22 15:31:00
--  
就是判断这个文本框中的数值比不比另一个文本框中的小。