判断TextBox或者ComboBox内容为空的函数

[wlccomeon]

最近老是需要判断这两个控件是否为空，编写了下面的函数，可是调用的时候：1、需要首先填写Tag属性（尝试过Text属性，不行）2、遍历是由TabIndex属性从大到小进行的，这两个都不是我想要的。望高手帮忙！

Public Shared Function IsEmpertyText(ByVal Objs As Windows.Forms.Control.ControlCollection) As Boolean

        Dim objCon As Control

        For Each objCon In Objs

            If TypeOf (objCon) Is TextBox Then
                If objCon.Text = "" Then
                    MsgBox(objCon.Tag.ToString + "不能为空", vbOKOnly + vbExclamation, "警告")
                    objCon.Focus()
                    Return False
                    Exit Function
                End If

            ElseIf TypeOf (objCon) Is ComboBox Then
                If objCon.Text = "" Then
                    MsgBox(objCon.Tag.ToString + "不能为空", vbOKOnly + vbExclamation, "警告")
                    objCon.Focus()
                    Return False
                    Exit Function
                End If
            End If
        Next

        Return True

    End Function

[不说也罢]

    Public Shared Function IsEmpertyText(ByVal Objs As Form) As Boolean
        For Each objCon As Control In Objs.Controls
            If (TypeOf objCon Is TextBox) Or (TypeOf objCon Is ComboBox) Then
                If objCon.Text.Trim = "" Then
                    objCon.Focus()
                    Return False
                    Exit For
                End If
            End If
        Next

[不说也罢]

少了结尾的End Function

[wlccomeon]

引用 1 楼 u010924806 的回复:

    Public Shared Function IsEmpertyText(ByVal Objs As Form) As Boolean
        For Each objCon As Control In Objs.Controls
            If (TypeOf objCon Is TextBox) Or (TypeOf objCon Is ComboBox) Then
                If objCon.Text.Trim = "" Then
                    objCon.Focus()
                    Return False
                    Exit For
                End If
            End If
        Next

虽然您的代码整合了我的写法，但运行效果是一样的，我在上面说到的两个问题仍然存在~~~不过仍然多谢~

[代码之城]

非常好，谢谢

[wlccomeon]

引用 6 楼 u010924806 的回复:

1、如果你一定要提示哪一个控件为空，就不能偷懒，手工设置TAG属性； 2、第二个问题，你看下面的方法能不能满足你

    Public Shared Function IsEmpertyText(ByVal Objs As Form) As Boolean
        For i As Integer = Objs.Controls.Count - 1 To 0 Step -1
            If (TypeOf Objs.Controls(i) Is TextBox) Or (TypeOf Objs.Controls(i) Is ComboBox) Then
                If Objs.Controls(i).Text.Trim = "" Then
                    Objs.Controls(i).Focus()
                    Return False
                    Exit For
                End If
            End If
        Next
    End Function

如果第一个问题确实解决不了，也只能费点功夫了，您的获取焦点代码前再加上一句

MsgBox(Objs.Controls(i).Tag + "不能为空！", vbOKOnly + vbInformation, "系统提示")

就完美了~~这个问题应该算是解决了~

[不说也罢]

其实哈，就看你在IDE窗口如何布局窗体的。 比方说，有一个TexBox23,对应的值是“员工姓名”，则可以在其左侧的标签Label控件name属性也设为LblTexBox23，就是有规律地设置为Lbl+文本框控件名。然后，就可以这样写代码了：

   Public Shared Function IsEmpertyText(ByVal Objs As Form) As Boolean
        For i As Integer = Objs.Controls.Count - 1 To 0 Step -1
            If (TypeOf Objs.Controls(i) Is TextBox) Or (TypeOf Objs.Controls(i) Is ComboBox) Then
                If Objs.Controls(i).Text.Trim = "" Then
                    MsgBox(Objs.Controls.Find("Lbl" & Objs.Controls(i).Name, True)(0).Text & "不能为空!")
                    Objs.Controls(i).Focus()
                    Return False
                    Exit For
                End If
            End If
        Next
    End Function

[不说也罢]

这样的话，将该Label控件的Text属性设为“员工姓名”，则就会提示“员工姓名不能为空”鸟。 这个关键是你要在IDE设计时为Label控件设置Name属性时，需要注意与对应的文本框保持一致，且要有规律可循。我这里是以 Lbl 开头，加上对应的文本框控件的Name。 如果能帮到你，请及时结贴。

[wanghui0380]

如果就你想要的设计，请google“sp1234重量级查询控件” 当然就像老p帖子里说滴，这玩意用是可以用地，不过如果界面复杂控件层级过多就相对效率差点，其实这玩意的标准解还是自己定制一个errorProvider控件，一了百了

[lliai]

学习。。。。。，等待高手答复。

[不说也罢]

1、如果你一定要提示哪一个控件为空，就不能偷懒，手工设置TAG属性； 2、第二个问题，你看下面的方法能不能满足你

    Public Shared Function IsEmpertyText(ByVal Objs As Form) As Boolean
        For i As Integer = Objs.Controls.Count - 1 To 0 Step -1
            If (TypeOf Objs.Controls(i) Is TextBox) Or (TypeOf Objs.Controls(i) Is ComboBox) Then
                If Objs.Controls(i).Text.Trim = "" Then
                    Objs.Controls(i).Focus()
                    Return False
                    Exit For
                End If
            End If
        Next
    End Function

[wlccomeon]

引用 9 楼 u010924806 的回复:

这样的话，将该Label控件的Text属性设为“员工姓名”，则就会提示“员工姓名不能为空”鸟。 这个关键是你要在IDE设计时为Label控件设置Name属性时，需要注意与对应的文本框保持一致，且要有规律可循。我这里是以 Lbl 开头，加上对应的文本框控件的Name。 如果能帮到你，请及时结贴。

这个思想非常好哎！多谢！高手！

[wlccomeon]

引用 10 楼 wanghui0380 的回复:

如果就你想要的设计，请google“sp1234重量级查询控件” 当然就像老p帖子里说滴，这玩意用是可以用地，不过如果界面复杂控件层级过多就相对效率差点，其实这玩意的标准解还是自己定制一个errorProvider控件，一了百了

我是菜鸟一枚，sp1234的代码看的不是很懂，不过也谢谢您的回答~

[wlccomeon]

引用 9 楼 u010924806 的回复:

这样的话，将该Label控件的Text属性设为“员工姓名”，则就会提示“员工姓名不能为空”鸟。 这个关键是你要在IDE设计时为Label控件设置Name属性时，需要注意与对应的文本框保持一致，且要有规律可循。我这里是以 Lbl 开头，加上对应的文本框控件的Name。 如果能帮到你，请及时结贴。

我现在实现的功能是遍历窗体中的全体文本框和组合框，如果想遍历特定的若干个，比如：txtName和cboGrade该怎么办呀？

[张连海]

昌哥，，，，用个结构体！