机房重构进行时，多次用到判断文本框、组合框是否为空，以及清空文本框、组合框，为此专门抽象出一系列的方法，开始写的比较乱，昨天又重新理了一遍，拿来与大家交流学习。

    上图是组合查询的界面，因为上篇讲到了窗体继承，所以故意选择组合查询的父窗体，以此为基础，谈一下怎样判断文本框、组合框是否为空，怎样清空文本框、组合框，同时作为窗体继承的实践，以及组合查询的前篇。

    组合查询有三个条件，我们可以选择一个、两个或三个，这就需要我们去判断其中一部分文本框、组合框是否为空，怎么办？方法有两个，一是把需要判断的控件封装在控件数组里，另一种是放在容器Panel里（题外话：我开始用的GroupBox，结果不可以，后来是zhao同学提示的我用Panel，感谢zhao同学），下面用封装数组的方法实现：

<span style="font-family:SimSun;font-size:18px;">    '判断数组控件是否为空
    Public Function IsEmptyControlArray(ByVal ArrayControl() As Control)
        Dim control As New Control                       '定义控件类
        For Each control In ArrayControl                     '遍历数组中的控件
            If TypeOf (control) Is TextBox And control.Tag <> "" Then   '判断文本框是否为空   Tag <> ""防止漏写tag报错
                If control.Text.Trim = "" Then                           '如果空，请示用户输入
                    MsgBox("请输入" & control.Tag.ToString, vbOKOnly, "提示")
                    control.Focus()                                   '控件获得焦点
                    Return False                       '返回False
                End If
            ElseIf TypeOf (control) Is ComboBox And control.Tag <> "" Then  '判断组合框是否为空
                If control.Text = "" Or control.Text.Trim = "<请选择>" Then       '如果空，提示用户选择数据项
                    MsgBox("请选择" & control.Tag.ToString, vbOKOnly, "提示")
                    control.Focus()                         '获取焦点
                    Return False                          
                End If
            End If
        Next
        Return True                                   
    End Function
</span>

    如果是放在Panel中的，参数直接定义为Panel.ControlCollection即可，如果是判断窗体的全部控件，那么把参数定义为Windows.Forms.Control.ControlCollection。对于清空文本框、组合框也是同样的方法，这里不再赘述。

然后把你需要判断的控件放在数组里面，设置好相应的Tag，调用此方法即可。

    封装控件以及调用的代码：

<span style="font-family:SimSun;font-size:18px;">            Dim ControlArray(2) As Control             '定义控件数组，获取组合1的控件
            ControlArray(0) = cboField1
            ControlArray(1) = cboOperator1
            ControlArray(2) = txtKey1

            If CommonMethod.IsEmptyControlArray(ControlArray) = False Then               '判断组合1的控件是否为空
                Exit Sub
            End If</span>

    看一下效果：

    方法就介绍到这里，欢迎大家批评指正。