纵观机房收费系统，判断文本框、组合框为空问题无非两种情况。第一种：判断窗体中所有文本框、组合框是否为空。第二种：判断一部分文本框、组合框是否为空。下面看看我是如何实现这两种情况的。
第一种：判断窗体中所有文本框、组合框是否为空。
”’ <summary>”’ 判断窗体中所有文本框、组合框输入内容是否为空，若窗体中有允许为空的文本框或组合框，，”’则不能使用此函数”’ </summary>”’ <param name="frm"></param>”’ <returns></returns>”’ <remarks></remarks>Public Shared Function IsAllEmptyText(ByVal frm As Form) As BooleanDim control As New ControlFor Each control In frm.Controls ‘遍历窗体中所有的控件If TypeOf control Is TextBox Then ‘判断控件是不是文本框If control.Text.Trim = "" Then ‘判断文本框内容是否为空MsgBox(control.Tag.ToString + "不能为空！", vbOKOnly, "温馨提示")control.Focus()Return TrueExit FunctionEnd IfElseIf TypeOf control Is ComboBox Then ‘判断控件是不是组合框If control.Text.Trim = "" ThenMsgBox(control.Tag.ToString + "不能为空！", vbOKOnly, "温馨提示")Return TrueExit FunctionEnd IfEnd IfNextReturn FalseEnd Function
第二种：判断一部分文本框、组合框是否为空。
”’ <summary>”’ 判断控件数组中的控件的Text属性是否为空”’ </summary>”’ <param name="arrayControl"></param>”’ <returns></returns>”’ <remarks></remarks>Public Shared Function IsSomeEmptyText(ByVal arrayControl() As Control) As BooleanDim control As New ControlFor Each control In arrayControl ‘遍历数组中所有元素If TypeOf control Is TextBox Then ‘判断控件是不是文本框If control.Text.Trim = "" Then ‘判断文本框内容是否为空MsgBox(control.Tag.ToString + "不能为空！", vbOKOnly, "温馨提示")control.Focus()Return TrueExit FunctionEnd IfElseIf TypeOf control Is ComboBox Then ‘判断控件是不是组合框If control.Text.Trim = "" ThenMsgBox(control.Tag.ToString + "不能为空！", vbOKOnly, "温馨提示")Return TrueExit FunctionEnd IfEnd IfNextReturn FalseEnd Function
调用函数：
Dim arrayControl() As ControlReDim Preserve arrayControl(1)arrayControl(0) = txtUserNamearrayControl(1) = txtPasswordIf UIEmpty.IsSomeEmptyText(arrayControl) ThenExit SubEnd If
太过于近，彼此身上隐性的刺又会深深的伤害对方。
