定义函数检索窗体中所有文本框是否为空

以前用VB做学生信息管理系统和机房收费系统,在遇到要判断用户是否在文本框输入数据的时候写很多判断语句。 现在用VB.NET重构机房收费系统,要尽量把代码重复利用率降低,所以就网上搜着了一个带参数的可以自动检索代码重复利用率的函数,留着以后备用。

Public Function IsExists(ByVal frmTestText As Windows.Forms.Form) As Boolean
        IsExists = True
        Dim c As Control
        For Each c In frmTestText.Controls
            If TypeOf c Is TextBox Then
                c.Text = c.Text.Trim
                If c.Text = "" Then
                    IsExists = False
                    c.Focus()

                    Exit Function
                End If
            End If
        Next
    End Function

如果有窗体文本框很多的话,直接调用函数进行判断文本框是否为空就简单多了,可以少写好多代码,哦耶!

定义函数检索窗体中所有文本框是否为空

上一篇:Windows Common Controls


下一篇:Windows 通用应用尝试开发 “51单片机汇编”总结