2007-02
22

咫尺天涯

By xrspook @ 23:36:21 归类于: 烂日记

已经站到了胜利的旁边,但就那么一尺,就那么一步,跨不过就是跨不过,不骗别人,不骗自己。

今天晚上把落下的工程原理课程设计的程序又认真了起来。一切就绪,所有的版面已经调整好,背景图案设定完毕,字体的位置都已经弄好。最后觉得自己若不设定数据提示,比如说输入的数据缺少就得弹个对话框出来提示使用者,免得程序溢出,导致我也不知道会怎样的后果。就是那个消息框,我不知道该如何跨过着最后一步。消息函数不难,但弹出消息的条件该怎样?

我的目的是利用循环语句for…next检测所有文本框内是否都有数据,需要输入的文本框有40个,从text1到text40。总不能用最最笨的方法写:

If (text1.text="" or text2.text="" or … or text40.text="") then
  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

但显然,“Textn”是行不通的,“Textboxn”、“Textn.text”和“Textboxn.text”也行不通。该如何从Text1跳转到Text2呢?怎么实现这个循环????烦死了!!!!!

于是,我就陷入了这个死循环,哪位大侠指点迷津啊~~~~~

1 条评论

  1. 落乱清

    今天考完了C。上帝保佑,不要让我去炒冷饭。
    CET-6ing.
    xrspook 对 落乱清 的回复: 2008-04-12 20:50:09
    努力CET6吧,兄弟!

有话要说

XHTML: You can use these tags: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

© 2004 - 2024 我的天 | Theme by xrspook | Power by WordPress