前言：

大家肯定都会遇到过文本框或组合框很多的时候，但都需要全部清空的，下面我就介绍一下怎么清空。

内容：

一、不同类型的一次清空

1、新建一个Model类，用来存放这个清空结构体。（结构体，大家可以查一下，便于理解）

Module CheckModule'结构体，通俗讲就像是打包封装，把一些有共同特征（比如同属于某一类事物的属性，往往是某种业务相关属性的聚合）的变量封装在内部，通过一定方法访问修改内部变量。'可以合并不同类型的数据项来创建结构'构体(struct)是由一系列具有相同类型或不同类型的数据构成的数据集合，也叫结构'一组数据往往具有不同的数据类型。例如， 在学生登记表中，姓名应为字符型；学号可为整型或字符型； 年龄应为整型；性别应为字符型；成绩可为整型或实型。 显然不能用一个数组来存放这一组数据。 因为数组中各元素的类型和长度都必须一致，以便于编译系统处理。为了解决这个问题，C语言中给出了另一种构造数据类型——“结构”。 它相当于其它高级语言中的记录。'定义一个结构体TermPublic Structure TermDim comtrolSub As ControlDim strText As StringSub New(ByVal comtrolSub As Control, ByVal strText As String)With Me.comtrolSub = comtrolSub.strText = strTextEnd WithEnd SubEnd Structure'定义一个term类型的结构体数组Public arrayControl() As TermPublic Function CheckIsEmpty(ByVal arrayControl() As Term) As BooleanDim termControl As Term'遍历结构体数组中的所有元素，如果文本为空，进行提示，如果组合框为空，进行提示For Each termControl In arrayControl                   '遍历结构体数组中所有元素  If TypeOf termControl.comtrolSub Is TextBox Then   '判断控件是否为文本框If termControl.comtrolSub.Text.Trim = "" Then  '判断文本框内容是否为空MessageBox.Show(termControl.strText & "不能为空", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)termControl.comtrolSub.Focus()Return TrueExit FunctionEnd IfElseIf TypeOf termControl.comtrolSub Is ComboBox Then      '判断控件是否为组合框If termControl.comtrolSub.Text.Trim = "" Then          '判断组合框内容是否为空MessageBox.Show(termControl.strText & "不能为空", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)termControl.comtrolSub.Focus()Return TrueExit FunctionEnd IfEnd IfNextReturn False '如果不为空，返回False  End FunctionPublic Function AllEmpty(arrayControl() As Term) As BooleanDim termControl As Term                               '声明一个Term类型变量termControl '遍历结构体数组中的所有元素，清空其Text属性 For Each termControl In arrayControl                  '遍历结构体数组中所有元素If TypeOf termControl.comtrolSub Is TextBox Or TypeOf termControl.comtrolSub Is ComboBox ThentermControl.comtrolSub.Text = ""              '如果是文本框或组合框则清空  End IfNextReturn True                                          '如果为空返回 True  End FunctionEnd Module

2、然后初始化结构体，调用这个过程就可以了

 Private Sub Rdim()ReDim Preserve arrayControl(9)       '重定义数组维数 '初始化数组arrayControl(0) = New Term(txtCardNo, "卡号")arrayControl(1) = New Term(txtBalance, "充值金额")arrayControl(2) = New Term(txtStudentNo, "学号")arrayControl(3) = New Term(txtName, "姓名")arrayControl(4) = New Term(txtgrade, "年纪")arrayControl(5) = New Term(txtspecialty, "专业")arrayControl(6) = New Term(txtdepartment, "学院")arrayControl(7) = New Term(cmbsex, "性别")arrayControl(8) = New Term(cmbtype, "类型")arrayControl(9) = New Term(cmbstate, "状态")End Sub'一件清空Private Sub btnCanCel_Click(sender As Object, e As EventArgs) Handles btnCanCel.ClickCall Rdim()If AllEmpty(arrayControl) ThenExit SubEnd IfEnd Sub'检查是否为空Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click' Dim CardFacade As New Call Rdim()If CheckIsEmpty(arrayControl) ThenExit SubEnd IfEnd Sub
End Class

二、相同类型或者类型比较少用,在自己窗体上使用

 Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles Button1.ClickFor Each ctr As Control In Me.ControlsIf TypeOf ctr Is TextBox Or TypeOf ctr Is ComboBox Thenctr.Text = ""End IfNextEnd Sub

机房重构---清空文本框或组合框内容相关推荐

判断文本框、组合框是否为空
我们在做机房收费系统的时候,很多情况下都要判断文本框是否为空,那接下来我们看看在vb.net中我们怎么判断文本框.组合框是否为空. 一.遍历窗体中有多少个文本框,这时我们用For Each循环语句,先 ...
java pdf表单域实现_Java 创建PDF表单域 - 文本框、复选框、列表框、组合框、按钮等...
表单域包括文本框.复选框.列表框.组合框.按钮和签名域等,主要用于收集用户填写或选择的数据.这篇文章将介绍如何在Java应用程序中给PDF文档添加表单域. 导入jar文件本文所使用的PDF类库是Fr ...
计算机跳转列表常用组合框,2015计算机二级VB考点复习指导：列表框和组合框
2015计算机二级VB考点复习指导:列表框和组合框 (一)列表框 1.属性列表框所支持的标准属性包括Enabled.FontBold.FontItalic.FontName.FontUnderlin ...
列表框和组合框的使用
列表框是显示一系列项供用户选择的控件,对选中的项可以进行后续的处理.用户选择可以是多项的,但本章的例程设计为单选的.组合框是一个编辑框带一个可以下拉的列表框,用户在下拉框中选择的项会进入编辑框中,再进 ...
excel 中vb组合框_Excel组合框上的标题
excel 中vb组合框 Excel组合框上的标题 (Headers on Excel Combo Boxes) You can use combo boxes to show a drop down ...
图形界面 XI: 表格单元中的文本编辑框和组合框 (统合构建15)
内容概述调整窗口大小表格单元中的文本框和组合框应用测试结束语概述首篇文章图形界面 I: 函数库结构的准备 (第 1 章) 详细研究了这个函数库.每篇文章的末尾, 附加了当前开发阶段的完 ...
MFC界面编程基础（13）：列表框和组合框
上一篇:MFC界面编程基础(12):组框.单选按钮和复选框下一篇:MFC界面编程基础(14):滚动条列表框和组合框列表框是CListBox类的对象,组合框是CComboBox的对象. 列表框属 ...
html 选择列表框,列表框和组合框的区别是什么？
列表框和组合框的区别 1.自动排序方式不同: 当列表框不能同时显示所有项目的时候,将自动添加滚动条,使用户可以滚动查阅所有选项.组合框的风格取值定义了组合框的具体属性,包括是否自动排序,是否有滚动条. ...
python中组合框_PyQt 组合框
# PyQt 组合框 > 原文: [https://pythonbasics.org/PyQt-combobox/](https://pythonbasics.org/PyQt-combobox ...

机房重构---清空文本框或组合框内容

前言：

内容：

一、不同类型的一次清空

二、相同类型或者类型比较少用,在自己窗体上使用

机房重构---清空文本框或组合框内容相关推荐

最新文章

热门文章