VB.NET 完美解决判断文本框、组合框为空问题

''' <summary>
''' 判断窗体中所有文本框、组合框输入内容是否为空，若窗体中有允许为空的文本框或组合框，
'''则不能使用此函数
''' </summary>
''' <param name="frm"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function IsAllEmptyText(ByVal frm As Form) As Boolean
Dim control As New Control

For Each control In frm.Controls '遍历窗体中所有的控件
If TypeOf control Is TextBox Then '判断控件是不是文本框
If control.Text.Trim = "" Then '判断文本框内容是否为空
MsgBox(control.Tag.ToString + "不能为空！", vbOKOnly, "温馨提示")
control.Focus()
Return True
Exit Function
End If
ElseIf TypeOf control Is ComboBox Then '判断控件是不是组合框
If control.Text.Trim = "" Then
MsgBox(control.Tag.ToString + "不能为空！", vbOKOnly, "温馨提示")
Return True
Exit Function
End If
End If
Next

Return False
End Function

''' <summary>
''' 判断控件数组中的控件的Text属性是否为空
''' </summary>
''' <param name="arrayControl"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function IsSomeEmptyText(ByVal arrayControl() As Control) As Boolean
Dim control As New Control

For Each control In arrayControl '遍历数组中所有元素
If TypeOf control Is TextBox Then '判断控件是不是文本框
If control.Text.Trim = "" Then '判断文本框内容是否为空
MsgBox(control.Tag.ToString + "不能为空！", vbOKOnly, "温馨提示")
control.Focus()
Return True
Exit Function
End If
ElseIf TypeOf control Is ComboBox Then '判断控件是不是组合框
If control.Text.Trim = "" Then
MsgBox(control.Tag.ToString + "不能为空！", vbOKOnly, "温馨提示")
Return True
Exit Function
End If
End If
Next
Return False
End Function

Dim arrayControl() As Control
ReDim Preserve arrayControl(1)

 arrayControl(0) = txtUserName
arrayControl(1) = txtPassword
If UIEmpty.IsSomeEmptyText(arrayControl) Then
Exit Sub
End If