判断TextBox或者ComboBox内容为空的函数
本帖最后由 wlccomeon 于 2013-06-02 15:38:26 编辑 最近老是需要判断这两个控件是否为空，编写了下面的函数，可是调用的时候：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

textbox ComboBox 函数 判断为空
[解决办法]
这样的话，将该Label控件的Text属性设为“员工姓名”，则就会提示“员工姓名不能为空”鸟。
这个关键是你要在IDE设计时为Label控件设置Name属性时，需要注意与对应的文本框保持一致，且要有规律可循。我这里是以 Lbl 开头，加上对应的文本框控件的Name。

如果能帮到你，请及时结贴。
[解决办法]
如果就你想要的设计，请google“sp1234重量级查询控件”

当然就像老p帖子里说滴，这玩意用是可以用地，不过如果界面复杂控件层级过多就相对效率差点，其实这玩意的标准解还是自己定制一个errorProvider控件，一了百了