房收费系统的时候，令人相当恶心的一件事就是判断文本框和组合框是否为空还有清空文本框。基本上每个窗体都要进行判断，那一个接着一个的If...Ｅｌｓｅ...语句，长长一串，看着就头疼，但是第一次做机房收费系统的时候竟然傻傻的一个不落都写了出来。真佩服当时的自己，不过这一次还是不要在做那种傻事了，因为我们经历了不少面向对象的洗礼，认识了抽象。

向对象的范畴里，对于相同的或者类似的代码只要重复3次以上我们应该想到面向对象的三大特性之一：抽象。想是想到了但是具体怎么通过抽象和封装来简化繁琐的判断任务呢？

１.　首先新建一个模块，在ＵＩ层右键－添加－新建项－选择Model

２.　然后在Ｍｏｄｅｌ中定义一个结构体Term，且定义一个term类型的结构体数组

构体(struct)是由一系列具有相同类型或不同类型的数据构成的数据集合，也叫结构。和基础数据类型Ｉｎｔ，Ｃｈａｒ一样，可以把它定义成自己需要的数据类型。 详情请百度一下。

<span style="font-size:18px;">    '定义结构体Term
    Public Structure Term
        Dim controlSub As Control
        Dim strText As String
        Sub New(ByVal controlSub As Control,ByVal strText As String)
            With Me
                .controlSub = controlSub
                .strText = strText
            End With
        End Sub
    End Structure

    '定义一个term类型的结构体数组
    Public arrayControl() As Term
</span>

３.　然后我们就可以在需要的窗体下定义一个过程Rdim()　作用是初始化这个Ｔｒｅｍ类型的结构体数组。

    <span style="font-size:18px;">Private Sub Rdim()

        ReDim Preserve arrayControl(9)    '重定义数组维数

        '初始化数组
        arrayControl(0) = New Term(txtCID,"卡号")
        arrayControl(1) = New Term(txtBalance,"充值金额")
        arrayControl(2) = New Term(txtSID,"学号")
        arrayControl(3) = New Term(txtName,"姓名")
        arrayControl(4) = New Term(cmbsex,"性别")
        arrayControl(5) = New Term(txtDepartment,"系别")
        arrayControl(6) = New Term(cmbGrade,"年级")
        arrayControl(7) = New Term(txtClass,"班级")
        arrayControl(8) = New Term(cmbType,"类型")
        arrayControl(9) = New Term(cmbstatus,"卡的状态")
    End Sub
</span>

４.　然后该函数了，先说IsEmptyText()函数，作用是判断文本框、组合框的内容是否为空，为空的话给出相应的提示。它同样写在Model中

    ''' <summary>  
    ''' 判断数组中控件的Text属性是否为空，并给出相应提示  
    ''' </summary>  
    ''' <param name="arrayControl">需要遍历的结构体数组</param>  
    ''' <returns>返回Boolean值，true表示为空，false表示不为空</returns>  
    Public Function CheckIsEmpty(ByVal arrayControl() As Term) As Boolean
        Dim termControl As Term                                     '声明一个Term类型变量termControl

        '遍历结构体数组中的所有元素，如果控件文本为空，则进行相应提示  
        For Each termControl In arrayControl                        '遍历结构体数组中所有元素
            If TypeOf termControl.controlSub Is TextBox Then        '判断控件是否为文本框
                If termControl.controlSub.Text.Trim = "" Then       '判断文本框内容是否为空
                    MessageBox.Show(termControl.strText & "不能为空哦！","",MessageBoxButtons.OK,MessageBoxIcon.Exclamation)
                    termControl.controlSub.Focus()                  '为空控件得到焦点
                    Return True
                    Exit Function
                End If
            ElseIf TypeOf termControl.controlSub Is ComboBox Then   '判断控件是否为组合框 
                If termControl.controlSub.Text.Trim = "" Then       '判断组合框内容是否为空
                    MessageBox.Show(termControl.strText & "不能为空哦！",MessageBoxIcon.Exclamation)
                    termControl.controlSub.Focus()                  '为空控件得到焦点
                    Return True
                    Exit Function
                End If
            End If
        Next
        Return False
    End Function

５.　一键清除文本框内容的函数，在Model中添加函数AllEmpty()

    ''' <summary>
    ''' 清空窗体中所有文本框、组合框的Text
    ''' </summary>
    ''' <param name="arrayControl">需要遍历的结构体数组</param>
    ''' <returns>返回布尔值，True</returns>
    ''' <remarks></remarks>
    Public Function AllEmpty(ByVal arrayControl() As Term) As Boolean
        Dim termControl As Term                                     '声明一个Term类型变量termControl

        '遍历结构体数组中的所有元素，清空其Ｔｅｘｔ属性
        For Each termControl In arrayControl                        '遍历结构体数组中所有元素

            If TypeOf termControl.controlSub Is TextBox Or TypeOf termControl.controlSub Is ComboBox Then
                termControl.controlSub.Text = ""                    '如果是文本框或组合框则清空
            End If
        Next
        Return True
    End Function

６.　上面说明了这么多，现在到调用的时候了。

检查是否为空：

    Private Sub btnEmpty_Click(sender As Object,e As EventArgs) Handles btnEmpty.Click
        Call Rdim()　　　’首先调用Rdim过程进行数组初始化
        '再调用IsEmptyText()函数，检测是否输入文本内容
        If CheckIsEmpty(arrayControl) Then
            Exit Sub
        End If
    End Sub

一键清空：

    Private Sub btnEmpty_Click(sender As Object,e As EventArgs) Handles btnEmpty.Click
        Call Rdim()　　　’首先调用Rdim过程进行数组初始化
        '调用清空函数，把窗体中控件的文本清空
        If AllEmpty(arrayControl) Then
            Exit Sub
        End If
    End Sub

其他窗体应用该函数的时候只需要定义一个过程Rdim()　初始化Ｔｒｅｍ类型的结构体数组，再调用函数即可。

非常方便！随着学习，正在逐渐的触摸到面向对象思想所带来的好处。

（PS:不当的地方，恳请指出！）