机房收费系统 —— 如何快速清除任何文本框的内容

前言

清屏有的时候需要写很多代码，今天在做组合查询的时候，发现好多文本框的内容都需要清除，于是上网找到了快速清除窗体上控件内容的方法

1、代码

Dim ctl As Control   '定义一个变量，把任何控件装载到里面 

 '删除所有text文本框内容
For Each ctl In Controls
    If TypeOf ctl Is textbox Then ctl.Text = ""     
Next ctl

 '删除所有combobox文本框内容
 For Each ctl In Controls
     If TypeOf ctl Is combobox Then ctl.Text = ""
 Next ctl

2、代码解释

(1)、Visual Basic提供Control类作为控件的一般变量类型。当声明一个变量为As Control，就可以将任何控件引用赋给该变量

(2)、TypeOf (objectname) Is （objecttype ）形式表达式。其中的 objectname是任何对象的引用，而objecttype 则是任何有效的对象类型。如果 objectnam是 objecttype所指定的一种对象类型，则表达式为True，否则为False

现在，理解起来就真的轻松了吧！