判断文本框、组合框是否为空

我们在做机房收费系统的时候，很多情况下都要判断文本框是否为空，那接下来我们看看在vb.net中我们怎么判断文本框、组合框是否为空。

一、遍历窗体中有多少个文本框，这时我们用For Each循环语句，先判断所有文本框是否为空

Public Shared Function IsAllEmptyText(ByVal frm As Form) As Boolean  Dim control As New Control  For Each control In <span style="font-family:Consolas, Courier New, Courier, mono, serif;"><span style="line-height: 18px;">arrayConcrol</span></span>                          '遍历窗体中所有的控件    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</span>

二、判断部分文本框、组合框是否为空

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</span>

三、在窗体中实现调用

        Dim empty As New UI.IsEmptyText ’调用判断文本框是否为空的方法Dim arrayControl() As Control  ’定义一个数组，将窗体中文本框的信息放入数组中ReDim Preserve arrayControl(1) ’数组的总数arrayControl(0) = txtUserName arrayControl(1) = txtPasswordIf empty.IsAllEmptyText(arrayControl) ThenExit SubEnd If

这样就可以轻松判断文本框是否为空，不过有点不方便的就是for each遍历是从最后一个往上遍历窗体中的文本框是否为空！

判断文本框、组合框是否为空相关推荐

【重构】判断文本框组合框是否为空
在机房重构中,判断文本框与组合框的内容是否为空是必不可少的,如果遇到文本框较多的窗体一个一个的进行判断实在是太麻烦,而且重复代码太多.重构中避免重复代码的出现是必须的,所以可以将重复的代码封装成一个类 ...
选择框,单选框,组合框,列表框
选择框为多选框,是方框单选框为圆形按钮组合框为有下拉键头的,信息组合起来的. 列表框显示信息表项的. 转载于:https://www.cnblogs.com/wanghj-dz/ ...
511遇见易语言组合框添加不重复文本到列表框
本课视频通过5种方法实现了易语言组合框添加不重复文本到列表框. 易语言组合框添加不重复文本到列表框视频交教程源码: .版本 2.子程序 _按钮1_被单击 .局部变量文本, 文本型文本＝组合框1. ...
易语言组合框去重复到列表框
在辅助开发时,我们需要通过组合框控制一些功能,或者获取一些数据,比如把组合框里的值添加到列表框,这里就需要去除重复的,以下代码实现了这个功能. .版本 2 .支持库 spec .支持库 EDataS ...
java 组合框_Java知多少（88）列表和组合框
列表和组合框是又一类供用户选择的界面组件,用于在一组选择项目选择,组合框还可以输入新的选择. 列表列表(JList)在界面中表现为列表框,是JList类或它的子类的对象.程序可以在列表框中加入多个文 ...
向工作表中添加列表框或组合框
http://office.microsoft.com/zh-cn/excel-help/HP010236681.aspx 添加列表框(表单控件) 如果"开发工具"选项卡未显示,请 ...
计算机跳转列表常用组合框,2015计算机二级VB考点复习指导：列表框和组合框
2015计算机二级VB考点复习指导:列表框和组合框 (一)列表框 1.属性列表框所支持的标准属性包括Enabled.FontBold.FontItalic.FontName.FontUnderlin ...
511遇见易语言组合框读取写配置文件和列表项目
本课首先录制了易语言组合框渐变背景颜色,然后通过读写配置文件ini来实现组合框加入项目,添加项目列表视频链接: 77 组合框读取写配置文件和列表项目视频教程源码: .版本 2.程序集窗口程序集_启 ...
MFC控件编程之组合框跟列表框
MFC控件编程之组合框跟列表框一丶简介如果要使用组合框跟列表框.那么就要知道.组合框列表框是最核心的东西就是索引. 索引是从0开始的. 二丶组合框列表框常用的方法 AddString(字符串) 添 ...

判断文本框、组合框是否为空

判断文本框、组合框是否为空相关推荐

最新文章

热门文章