假定窗口名为:“Form1”,假定窗口内的所有控件都未知,现在需要进行遍历,若能查找出名字为“abc”的控件,将其的Caption属性改为“没头脑”。

解决方案 »

  1.   

    'abc是一个按扭
    Private Sub abc_Click()
        Dim ctl As Control
        
        For Each ctl In Me.Controls
            If ctl.Name = "abc" Then
                ctl.Caption = "abc"
            End If
        Next
    End Sub
      

  2.   

    For Each ctl In Me.Controls这句看不明白。
      

  3.   

    For Each...Next 语句语法格式如下:
    For Each<元素>In<集合|数组>
        [语句块]
        [Exit For]
        [语句块]
    Nextctl是个循环变量啊,Me.Controls就是该窗体内的控件集合啊