VB.NET-轻松判断文本框是否为空,一键清空文本框内容

４ . 　然后该函数了，先说 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 & "不能为空哦！", "", MessageBoxButtons.OK, 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 Then        '判断控件是否为文本框
                If termControl.controlSub.Text.Trim <> "" Then    '判断文本框内容是否为空
                    termControl.controlSub.Text = ""
                End If
            ElseIf TypeOf termControl.controlSub Is ComboBox Then   '判断控件是否为组合框 
                If termControl.controlSub.Text.Trim <> "" Then    '判断组合框内容是否为空
                    termControl.controlSub.Text = ""
                End If
            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:不当的地方，恳请指出！）

原文：http://blog.csdn.net/u010028869/article/details/28422155