2007-02
22
咫尺天涯
已经站到了胜利的旁边,但就那么一尺,就那么一步,跨不过就是跨不过,不骗别人,不骗自己。
今天晚上把落下的工程原理课程设计的程序又认真了起来。一切就绪,所有的版面已经调整好,背景图案设定完毕,字体的位置都已经弄好。最后觉得自己若不设定数据提示,比如说输入的数据缺少就得弹个对话框出来提示使用者,免得程序溢出,导致我也不知道会怎样的后果。就是那个消息框,我不知道该如何跨过着最后一步。消息函数不难,但弹出消息的条件该怎样?
我的目的是利用循环语句for…next检测所有文本框内是否都有数据,需要输入的文本框有40个,从text1到text40。总不能用最最笨的方法写:
If (text1.text="" or text2.text="" or … or text40.text="") then
MsgBox "缺少数据", 48, "请补充输入!"
Exit Sub
End If
MsgBox "缺少数据", 48, "请补充输入!"
Exit Sub
End If
这样可以不用循环语句,但耗时耗力,简直就是白痴行为。显然,这里是要用到循环的,而且循环十分简单。但现在我可是老鼠拉龟——无从下手。先定义个dim n%,然后:
For n = 1 To 40 Step 1
If (Textn = "") Then
MsgBox "缺少数据", 48, "请补充输入!"
Exit Sub
End If
Next n
If (Textn = "") Then
MsgBox "缺少数据", 48, "请补充输入!"
Exit Sub
End If
Next n
但显然,“Textn”是行不通的,“Textboxn”、“Textn.text”和“Textboxn.text”也行不通。该如何从Text1跳转到Text2呢?怎么实现这个循环????烦死了!!!!!
于是,我就陷入了这个死循环,哪位大侠指点迷津啊~~~~~
今天考完了C。上帝保佑,不要让我去炒冷饭。
CET-6ing.
xrspook 对 落乱清 的回复: 2008-04-12 20:50:09
努力CET6吧,兄弟!