首页 > 代码库 > 判断文本框、组合框为空太麻烦?
判断文本框、组合框为空太麻烦?
做机房重构这么长时间了,由纯三层转到加模式加各种其他技术。写了各个层的代码,每次写到要判断文本框或组合框为空的时候总要重复一个一个的判断,虽简单但写的太多了就感觉不怎么爽。不将就是创造的原动力,整点儿技术含量的方法。
今天就解决了这个问题:判断是否为空就两种情况:1.全部为空2.部分为空
1.全部为空
Public Function IsAllEmpty(ByVal frm As Form) As Boolean Dim control As New Control For Each ct1 As Control In frm.Controls '遍历窗体中所有控件 If ct1.GetType() Is GetType(TextBox) Then '判断是否为文本框 If ct1.Text.Length = 0 Then '是否为空 MsgBox("信息不完整,请把信息填写完整") ct1.Focus() Return True Exit Function End If ElseIf ct1.GetType Is GetType(ComboBox) Then '判断是否为组合框 If ct1.Text.Length = 0 Then MsgBox(ct1.Tag.ToString + "不能为空!") ct1.Focus() Return True Exit Function End If End If Next Return False End Function2.部分为空
Public Function SomeIsEmpty(ByVal arrayCt1() As Control) As Boolean Dim control As New Control For Each ct1 As Control In arrayCt1 If ct1.GetType() Is GetType(TextBox) Then If ct1.Text.Length = 0 Then MsgBox(ct1.Tag.ToString + "不能为空!", vbOK, "提示信息") ct1.Focus() Return True Exit Function End If ElseIf ct1.GetType() Is GetType(ComboBox) Then If ct1.Text.Length = 0 Then MsgBox(ct1.Tag.ToString + "不能为空!", vbOK, "信息提示") ct1.Focus() Return True Exit Function End If End If Next Return False End Function
特别提醒:注意每个控件摆放的位置,因为control遍历是从最后放上去的一个控件向前遍历的
判断文本框、组合框为空太麻烦?
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。