枚举窗体内部所有控件 尤其是自适应窗体控件 或其它用途...
Option Explicit '强制宣告定义变量
Dim Ctr As Control
Dim aa$
Private Sub Form_Click()
On Error Resume Next
Me.Cls '清除画面
For Each Ctr In Me.Controls '枚举所有控件成员
aa = Ctr.Name '将控件名称复制给变量aa
'如果本控件是数组控件(包含索引值) 则变量aa将再连接括号与索引值
If Ctr.Index >= 0 Then aa = aa & "(" & CStr(Ctr.Index) & ")"
Print aa '打印本控件名称
Next
End Sub

bump

老大又发新手福利了啊～！

计算机QQ群，群号160689997，欢迎您的加入

新手的福利！

不错。研究下他的应用！

顶