一、需求
面对比较复杂的系统,我们大多是须要对文本框、组合框停止重复判断,以保证它们不为空。
二、计划
1、每一个窗体有一个Controls集合,代表窗体中出现的所有控件(如文本框、命令按钮和标签),应用该Controls集合,可以很容易地实现用户录入的有效性检测工作(VB.NET)。
延伸:Forms集合包含VB.NET项目中的所有窗体。
2、实例
定义一个类,专门用来停止判断。别的窗体直接调用类中方法便可停止判断。
//停止判断的类
Public ClassVerifyUser
Public Function verify(log AsWindows.Forms.Control.ControlCollection) As Boolean
Dim ConObject As Control '声明一个Control类的实例
Dim flag As Boolean '声明boolean型变量,用来给调用此方法的窗体返回信息
flag = True '默许控件内都有值
'开始遍历Control类中的每一个控件
For Each ConObject In log '利用TypeOf查看控件类型
If TypeOf (ConObject) Is TextBoxThen '若文本框的Text属性为空,提示信息
If ConObject.Text ="" Then '.Tag代表当前为空的控件
MsgBox(ConObject.Tag.ToString + "不能为空,请输入完全", vbOKOnly,"提示")
flag = False '此控件为空,返回信息
End If
ElseIf TypeOf (ConObject) IsComboBox Then '组合框为空时,弹出信息
If ConObject.Text ="" Then
MsgBox(ConObject.Tag.ToString + "不能为空,请输入完全" + vbOKOnly +"提示")
flag = False
End If
End If
Next
Return flag
End Function
End Class
每日一道理
时间好比一条小溪,它能招引我们奔向生活的海洋;时间如同一叶扁舟,它将帮助我们驶向理想的彼岸;时间犹如一支画笔,它会指点我们描绘人生的画卷。
//调用此类的方法
'判断是否为空,停止提示
Dim MyObjectAs New VerifyUser
IfMyObject.verify(Controls) = False Then
txtUserID.Focus()
txtUserID.SelectAll()
Exit Sub
End If
注:
(1)for each循环中,逐个处置Controls集合中的每一个控件。If语句对控件类型停止检测。若控件为Text控件,则应用Text属性检测该文本框中的文本。若文本框为空,则出现提示。
(2)必须有相应的判断,调用此类时,逻辑才会清晰。
(3)Control是.NET提供的类,它是所有控件的基类,在System.Windows.Form命名空间中。
(4)Type…Is运算符检测对象类型。如果对象是指定类型或从指定类型派生而来,则返回True。
三、不足
此方法遍用时是从后向前弹出对话框。比如:用户名和密码都为空,它会先弹出密码不能为空,再弹出用户名不能为空。我们如果采取此方法,在放置控件时需注意一下次序。