比较名称找出没有名称的Index - 编程论坛

#2

wube2012-05-24 15:13

object.item(index)
control("label" & i)

#3

sdhtli2012-05-24 15:27

谢谢,具体代码怎么写呢

#4

wube2012-05-24 19:10

以下是引用sdhtli在2012-5-24 15:27:34的发言：

谢谢,具体代码怎么写呢

(0) + Command1(1) + Command1(3) + ...

程序代码：

Private Sub Form_Load()
Dim MyObject, MyCollection
    Set MyCollection = Me.Controls
    For Each MyObject In MyCollection
        MsgBox MyObject.Index
    Next
End Sub

+ Command2 + Command3 + ...

程序代码：

Private Sub Form_Load()
Dim MyObject, MyCollection
    Set MyCollection = Me.Controls
    For Each MyObject In MyCollection
        MsgBox MyObject.Name
    Next
End Sub

至于找出来做啥就自己加吧...