excel - 在 For-Next 循环 vba 期间按顺序显示控件

Question

我有一个带有很多控件的 VBA 应用程序。
我想在 For-Next 循环期间按照阅读顺序访问控件。

' Parcours des contrôles de l'userform
For Each cCont In Me.Controls

   ' TypeName(cCont)
    MsgBox (cCont.Name)

Next cCont

实际上，我想我正在访问创建日期......

你知道我是否可以配置阅读顺序吗？

谢谢

Answer 1

一种方法是按 TabIndex 属性对它们进行排序。将选项卡索引设置为所需的顺序，然后使用:

Private Sub test()

    Dim cCont As Control
    Dim i As Integer
    Dim maxIndex As Integer
    Dim controls As Object
    Dim key As Variant

    Set controls = CreateObject("Scripting.Dictionary")

    'Add controls to dictionary, key by tabindex property
    For Each cCont In Me.controls
        maxIndex = IIf(maxIndex < cCont.TabIndex, cCont.TabIndex, maxIndex)
        controls.Add cCont.TabIndex, cCont
    Next cCont

    'Get controls in order
    For i = 0 To maxIndex
        If controls.exists(i) Then
            MsgBox controls(i).Name
        End If
    Next i

End Sub