怎样取得Label的name?

Question

在form上有很多Label控件，我知道总共有N（N是个可变值）个，Label命名规则相同，即Label1
Label2
Label3
...
LabelN我想用一个循环将这些Label的Caption属性全部重置，如何实现？
请帮助，谢谢！

Answer 1

利用控件数组lblStaticName(0)... to lblStaticName(N)private sub lblStaticName( Index as Integer)    lblStaticName(index).Caption = "Reset"
end sub

Answer 2

Private Sub Command1_Click()
 Dim tt As Object
 For Each tt In Form1.Controls
   If TypeOf tt Is Label Then
      Print tt.Name
   End If
 Next tt
End Sub

Answer 3

Private Sub Command1_Click()
 Dim tt As Object
 For Each tt In Form1.Controls
   If TypeOf tt Is Label Then
     tt.Caption = "你已经重置了"
   End If
 Next tt
End Sub

Answer 4

对于单对label操作,控件数组是比较理想的选择.
或者建立一个label集合.

Answer 5

其实有一种方法：利用CallByName方法，至于具体的用法，请参考帮助！