机房收费系统——对象集合的使用

由于机房收费系统的窗体和控件比较多，有时需要对多个对象进行操作，这时用到对象集合就会省很多代码量。代码就是时间，时间就是生命啊。越精简，效率越好。

1、窗体集合

在收费系统中要实现一个功能:一个窗体打开的时候，其他打开的窗体要最小化。实现如下：

Private Sub Form_Activate()
    '使除了当前窗体和主页之外的窗体最小化
    Dim frmCurr As Form
    For Each frmCurr In Forms
        If frmCurr.Name <> "frmMain" And frmCurr.Name <> "frmMainshow" And frmCurr.Name <> Me.Name Then
            frmCurr.WindowState = 1
        End If
    Next frmCurr
End Sub

2、控件集合

例如实现除了卡号之外其他的文本框全部清空：（两种方法）

法一：

'除了卡号，清空所有文本框
    Dim myControl As Control
    For Each myControl In Me.Controls
        If TypeOf myControl Is TextBox Then
            If myControl.Name <> "txtCardno" Then
            myControl.Text = ""
            End If
        End If
    Next

法二：

Dim myControl As Control
For Each myControl In Me.Controls
    If TypeName(myControl) = "TextBox" Then
        myControl.Text = ""
    End If
Next