前言
清屏有的时候需要写很多代码,今天在做组合查询的时候,发现好多文本框的内容都需要清除,于是上网找到了快速清除窗体上控件内容的方法
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
现在,理解起来就真的轻松了吧!