在实验机房收费系统的时候,有这样情况出现。就是总是会清空一些文本类的控件。比如说Textbox listbox 等。但是总是会写一大串的字符或者打包成一个函数,最后调用一下。
这里我想分享一种相对较为便捷的做法。
比如:我要想要情空十个combox 里面的文本,这样如果一般的做法会很麻烦。会书写很多代码来实现这一功能,但是如果我们用这样一段代码就会大大的减少工作量,提高效率。
Dim ctr As Control '定义控件类
For Each ctr In Me.Controls
If TypeOf ctr Is ComboBox Then
ctr.Clear
End If
其他的控件如text控件类似的做法,就是只是把combobox 换成 textbox 就可以了。
有兴趣的大家可以多多其他的控件!