VB.NET 完美解决判断文本框、组合框为空问题

最新推荐文章于 2021-07-25 21:22:38 发布

海_狼

最新推荐文章于 2021-07-25 21:22:38 发布

阅读量1w

点赞数

分类专栏： ASP.NET 文章标签： vb.net function textbox each

本文链接：https://blog.csdn.net/dreamcatchergo/article/details/7291167

版权

ASP.NET 专栏收录该内容

17 篇文章 0 订阅

订阅专栏

判断文本框、组合框为空问题无非两种情况。第一种：判断窗体中所有文本框、组合框是否为空。第二种：判断一部分文本框、组合框是否为空。下面看看我是如何实现这两种情况的。

第一种：判断窗体中所有文本框、组合框是否为空。

    ''' <summary>
    ''' 判断窗体中所有文本框、组合框输入内容是否为空，若窗体中有允许为空的文本框或组合框，
    '''则不能使用此函数
    ''' </summary>
    ''' <param name="frm"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function IsAllEmptyText(ByVal frm As Form) As Boolean
        Dim control As New Control

        For Each control In frm.Controls '遍历窗体中所有的控件
            If TypeOf control Is TextBox Then '判断控件是不是文本框
                If control.Text.Trim = "" Then '判断文本框内容是否为空
                    MsgBox(control.Tag.ToString + "不能为空！", vbOKOnly, "温馨提示")
                    control.Focus()
                    Return True
                    Exit Function
                End If
            ElseIf TypeOf control Is ComboBox Then '判断控件是不是组合框
                If control.Text.Trim = "" Then
                    MsgBox(control.Tag.ToString + "不能为空！", vbOKOnly, "温馨提示")
                    Return True
                    Exit Function
                End If
            End If
        Next

        Return False
    End Function

第二种：判断一部分文本框、组合框是否为空。

    ''' <summary>
    ''' 判断控件数组中的控件的Text属性是否为空
    ''' </summary>
    ''' <param name="arrayControl"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function IsSomeEmptyText(ByVal arrayControl() As Control) As Boolean
        Dim control As New Control

        For Each control In arrayControl '遍历数组中所有元素
            If TypeOf control Is TextBox Then '判断控件是不是文本框
                If control.Text.Trim = "" Then '判断文本框内容是否为空
                    MsgBox(control.Tag.ToString + "不能为空！", vbOKOnly, "温馨提示")
                    control.Focus()
                    Return True
                    Exit Function
                End If
            ElseIf TypeOf control Is ComboBox Then '判断控件是不是组合框
                If control.Text.Trim = "" Then
                    MsgBox(control.Tag.ToString + "不能为空！", vbOKOnly, "温馨提示")
                    Return True
                    Exit Function
                End If
            End If
        Next
        Return False
    End Function

调用函数：

        Dim arrayControl() As Control
        ReDim Preserve arrayControl(1)

        arrayControl(0) = txtUserName
        arrayControl(1) = txtPassword
        If UIEmpty.IsSomeEmptyText(arrayControl) Then
            Exit Sub
        End If