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