一堆相同的MaskedTextBox控件，怎么根据控件名或Tag值对其赋值

Question

一堆相同的MaskedTextBox控件，怎么根据控件名或Tag值对其赋值？MaskedTextBox11,MaskedTextBox12,...MaskedTextBox16
...
MaskedTextBox41,MaskedTextBox42,...MaskedTextBox46也就是怎么写控件循环判断？

Answer 1

Private Sub Command1_Click()
    Dim i As Integer
    
    For i = 0 To UBound(Text1)
        If Text1(i).Tag = "ok" Then
            Text1(i).Text = "qqqq"
        End If
    Next i
    
End Sub

Answer 2

如果不用控件数组这样写Private Sub Command1_Click()    Dim objCtl As Control
    
    For Each objCtl In Me.Controls
        If TypeOf objCtl Is TextBox Then
            If objCtl.Tag = "ok" Then
                objCtl.Text = "qqqqqq"
            End If
        End If
    Next
    
End Sub

Answer 3

谢谢jhone99VB2005后，控件数组好像没了，增加了Control.ControlCollection