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

以前用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

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