求助,简单的问题 我在form中加了几个text框然后要求对输入的内容做校验,我就集中把几个text校验写在一个check()函数中 然后调用它,是怎么调用的呢,语法不是很懂.献丑了 __________________________________________________________________________ 是在VB6环境下的 __________________________________________________________________________ text有改变、和失去焦点2个事件，看你用哪个了 __________________________________________________________________________ 能就两个事件都阐述一下吗,辛苦了 因为我不是很在行,但绝对有心学习. __________________________________________________________________________ 几个text框CHECK的业务是一样的吗?不一样的话最好分开写,一个业务一个方法.然后在text框的事件中(比如leave事件)调用你的CHECK方法.CHECK方法可以在脚本中写. __________________________________________________________________________ Private Sub check() If txtmeishou.Text = Then MsgBox goto erro End If end sub 业务都是一样的,我自己想做一个小东东,校验的函数这样写对吗 __________________________________________________________________________ 不对吧，这不还是针对一个TextBox的么？ __________________________________________________________________________ 我现在问题就是一个text也搞不好,我是在点击 提交 按钮时再让它CHECK,不是离开TEXT时就检验 我看了下TEXT事件,没有LEAVE事件,是不是就是DRAGOVER事件? __________________________________________________________________________ 如果只是要判断是否为空，要求用户必须填入，那么用以下这个过程就好了。不过还是得给每个TextBox都加上类似的过程。 Private Sub txtmeishou_Leave(ByVal sender As Object,ByVal e As System.EventArgs) Handles txtmeishou.Leave If txtmeishou.Text = Then MsgBox( Please Input Something BEFORE LEAVE! ) txtmeishou.Focus() End If End Sub __________________________________________________________________________ 如果只是要判断是否为空，要求用户必须填入，那么用以下这个过程就好了。不过还是得给每个TextBox都加上类似的过程。 Private Sub txtmeishou_Leave(ByVal sender As Object,ByVal e As System.EventArgs) Handles txtmeishou.Leave If txtmeishou.Text = Then MsgBox( Please Input Something BEFORE LEAVE! ) txtmeishou.Focus() End If End Sub __________________________________________________________________________ 对,我想要的也就是这样的代码,不过自己就是写不出来啊看来路还很遥远,要加强学习 这里谢谢了.辛苦了 __________________________________________________________________________ 不是的，没注意是6.0下的。其实类似于LostFocus事件，您应该去VB版问的，这里是.NET，容易混淆，呵呵。 __________________________________________________________________________ 6.0下，这样吧。 Private Sub Text1_LostFocus() If Text1.Text = Then MsgBox Please Input Somethind BEFORE LEAVE! Text1.SetFocus End If End Sub 好久没用6.0了，感觉真难用啊。lz改学.NET吧，初学的话好用极了。 __________________________________________________________________________ 原文链接：https://www.f2er.com/vb/263563.html