一、需求
面对比较复杂的系统，我们大多是需要对文本框、组合框进行重复判断，以保证它们不为空。
二、方案
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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。