控件名问题

Question

text1、text2、combox1 控件已经放在窗体Dim Control_Name(3) as String 
Control_Name={"text1","text2","combox1"}
for i=0 to 3
me.Control_Name(i).text=i    '<-----想要这样的效果
next请问如何做，谢谢！

Answer 1

不是这样做的，应该是dim ctl as control 然后for each ctl in me这样子

Answer 2

前几步沒問題,在FOR循環時改一下就好了
 Dim Ctrl As Control
 For Each Ctrl In Me.Controls
   If Ctrl.Name = "Text2" Then
     Ctrl.Text
   End If
 Next

Answer 3

Private Sub Form_Load()
Dim o As Object
On Error Resume Next
    For Each o In Me.Controls
        o.text = cstr(i)
    Next o
    If Err.Number <> 0 Then
        Err.Clear
    End If
End Sub