Index 属性示例

下例用 Index 属性来改变多页控件和 TabStrip 中页和标签的顺序。用户选择 CommandButton1 可把第三页和标签移到多页控件和 TabStrip 的最前面。用户选择 CommandButton2 可把选中的页和标签移到多页控件和 TabStrip 的最后面。

窗体包含：

• 名为 CommandButton1 和 CommandButton2 的两个命令按钮控件。
• 名为 Multipage1 的多页控件。
• 名为 TabStrip1 的 TabStrip。

Dim MyPageOrTab
Sub UserForm_CommandButton1_Click()
'把第三页和标签移到控件的前面
    UserForm_MultiPage1.page3.Index = 0
    UserForm_TabStrip1.Tab3.Index = 0
End Sub

Sub UserForm_CommandButton2_Click()
'把选定的页和标签移到控件的后面
    Set MyPageOrObject = UserForm_MultiPage1.SelectedItem 
    MsgBox "MultiPage1.SelectedItem = "  & UserForm_MultiPage1.SelectedItem.Name
    MyPageOrObject.Index = 4

    Set MyPageOrObject = UserForm_TabStrip1.SelectedItem
    MsgBox "TabStrip1.SelectedItem = "  & UserForm_TabStrip1.SelectedItem.Caption
    MyPageOrObject.Index = 4
End Sub

Sub UserForm_Initialize()
    UserForm_MultiPage1.Width = 200
    UserForm_MultiPage1.Pages.Add
    UserForm_MultiPage1.Pages.Add
    UserForm_MultiPage1.Pages.Add
    
    UserForm_TabStrip1.Width = 200
    UserForm_TabStrip1.Tabs.Add
    UserForm_TabStrip1.Tabs.Add
    UserForm_TabStrip1.Tabs.Add
    
    UserForm_CommandButton1.Caption = "Move third page/tab to front"
    UserForm_CommandButton1.Width = 120
    
    UserForm_CommandButton2.Caption = "Move selected item to back"
    UserForm_CommandButton2.Width = 120
 End Sub