一、需求
面对比较复杂的系统,我们大多是需要对文本框、组合框进行重复判断,以保证它们不为空。
二、方案
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。
三、不足
此方法遍历时是从后向前弹出对话框。比如:用户名和密码都为空,它会先弹出密码不能为空,再弹出用户名不能为空。我们如果采用此方法,在放置控件时需注意一下顺序。
四、借鉴
王海涛师哥:它这里涉及到对部分控件进行检测
http://blog.csdn.net/xiaoduishenghuogo/article/details/7291167