封装重复工作——判断文本框是否为空

        重复归一，怎么来解释这个词呢！在写这篇博客的时候，脑子中就突然蹦出了这样的一个词汇。这个词不知道字典中有没有，但是我的理解就是将重复的事情化为一件事情来做。记得建新师父去年给我验收系统的时候，我的电脑上总是蹦出一些没用的窗体，每次开机都要点一遍。然后师父说：不要每次都做重复的事情，做了超过两次，就要想想怎么去解决，让事情变得简单。

 机房收费系统也是一样，很多东西都是重复的，每次在敲一个窗体的时候，都会写上一些重复的代码，比如说判断文本框是否为空，以及推出后，文本框清空这样的问题。多写上几个窗体之后，我们就应该想想，每次都不要写那么多的东西。将他封装起来，单独的写一个方法，让大家去调用它，这样很省时间！

下边就看一下这个代码：

         

    Public Function IsSomeEmptyText(ByVal arrayControl() As Term) As Boolean

        '声明term类型变量 termcontrol
        Dim termControl As Term
        '便利所有结构体数组中所有元素，如果结构体中的空间文本为空，则找其对应字符串进行相应提示
        '便利结构体数组中所有元素
        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 & "不能为空", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    termControl.controlSub.Focus()
                    Return True
                    Exit Function
                End If
            End If
        Next
        Return False
    End Function

在模块中写完这段代码之后，每一次在进行判断的时候调用它就可以，同时还要在U层上写：

Dim arrayControl() As Term
        ReDim Preserve arrayControl(1)
        arrayControl(0) = New Term(txtUserName, "用户名")
        arrayControl(1) = New Term(txtPassword, "密码")
        If IsSomeEmptyText(arrayControl) Then
            Exit Sub
        End If

        这样就可以进行的简单的判断。在机房收费系统中，有很多这样的封装，比如说SQLHelp等，我们都是将重复的代码进行封装，这样会提高我们的工作效率。

        如果在一段时间我们在做不同的事情的时候，却一直有着重复的工作在做，这时候要想办法，将重复归一。多动脑，减少工作量，提高效率!