如何把焦点留在原位置?
test=val(alltrim(thisform.text1.text))
if test>100 or test <=0 then
messagebox("分数不能为负为0或大于100分!!",48,"输入错误")
thisform.text1.setfocus
endif
以上是丢失焦点事件中的代码:
我想把焦点留在原位置(TEXT1)但是在丢失焦点事件中用thisform.text1.setfocus不行各位帮看看,如何在按TAB键后,TEXT1丢失焦点后,如果输入不合法继续将焦点留在TEXT1??谢谢!!
问题点数：0、回复次数：13Top
1 楼xiolig（凌霄）回复于 2003-06-02 09:01:35 得分 0
检验数据合法性应该是 Valid 事件而不是 LostFocus 事件：
RETURN .F. && 同时会提示“数据无效”
RETURN 0 && 无任何提示Top
2 楼Maple119（枫叶）回复于 2003-06-02 09:11:29 得分 0
GOOD,正确无误.Top
3 楼debuger（）回复于 2003-06-02 09:36:16 得分 0
问题解决,麻烦在问一下,如果我想得到一个用MESSAGEBOX
定制的对话框如何做?Top
4 楼newfang（传说中的MIC）回复于 2003-06-02 12:32:05 得分 0
什么意思???不明白??Top
5 楼debuger（）回复于 2003-06-02 13:10:35 得分 0
我在GRID中输入分数要数值在0-100之间要不然一转移焦点,就立即报错,我想定制一个对话筐,指出"要输入0-100的数据!"Top
6 楼longspring（）回复于 2003-06-02 13:27:06 得分 0
在messagebox("提示信息中说明就可以了")Top
7 楼debuger（）回复于 2003-06-02 14:40:28 得分 0
这个我知道,一按下去,焦点就跳下去了...不行Top
8 楼lxrxyz（无忧十年）回复于 2003-06-03 04:21:20 得分 0
我也想实现这个功能，但没有实现，关注中。。。Top
9 楼darkhawlk（黑鹰）回复于 2003-06-03 10:13:48 得分 0
呵呵，可以调用setfocus方法呀
(假设当前控件是text1)
messagebox(prompt,butt,title)
thisform.text1.setfocus
returnTop
10 楼debuger（）回复于 2003-06-03 11:01:40 得分 0
SET不了的,你试一下就知道,一按键焦点又到下一个TAB去了...Top
11 楼xiolig（凌霄）回复于 2003-06-03 11:18:49 得分 0
真不知道你你们到底在讨论什么？
方案一：
* Valid 事件代码：
IF !BETWEEN(THIS.Value,0,100)
MESSAGEBOX("只能输入0—100之间的数！")
*或者换成 WAIT WINDOWS "..." 也行！
RETURN 0
ENDIF
方案二：
* Valid 事件代码：
RETURN BETWEEN(THIS.Value,0,100)
* ErrorMessage 事件代码：
RETURN "只能输入0—100之间的数！Top
12 楼debuger（）回复于 2003-06-03 11:36:13 得分 0
给分Top
13 楼debuger（）回复于 2003-06-03 11:56:09 得分 0
结贴Top
