批量处理控件

在实验机房收费系统的时候，有这样情况出现。就是总是会清空一些文本类的控件。比如说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 就可以了。

有兴趣的大家可以多多其他的控件！