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

前端之家收集整理的这篇文章主要介绍了VB.NET 完美解决判断文本框、组合框为空问题前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

纵观机房收费系统,判断文本框、组合框为空问题无非两种情况。第一种:判断窗体中所有文本框、组合框是否为空。第二种:判断一部分文本框、组合框是否为空。下面看看我是如何实现这两种情况的。


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


    ''' <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 + "不能为空!","温馨提示")
                    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 + "不能为空!","温馨提示")
                    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

猜你在找的VB相关文章