<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
求助,简单的问题
我在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吧,初学的话好用极了。
__________________________________________________________________________
求助,简单的问题
我在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吧,初学的话好用极了。
__________________________________________________________________________