SelectedItem 属性、TabStrip 控件、Tab 对象、Tabs 集合示例

下例用以下几种方法访问单个的 TabStrip 标签：

• 使用具有数字索引的 Tabs 集合。
• 使用具有字符串索引的 Tabs 集合。
• 使用具有 Item 方法的 Tabs 集合。
• 使用该单独的标签名称。

使用 SelectedItem 属性。

窗体包含

• 名为 TabStrip1 的 TabStrip。

Sub UserForm_Initialize()
    Dim TabName
    
    For i = 0 To UserForm_TabStrip1.Count - 1
        '使用索引（数值或字符串）
        MsgBox "TabStrip1.Tabs(i).Caption = "& UserForm_TabStrip1.Tabs(i).Caption
        MsgBox "TabStrip1.Tabs.Item(i).Caption = "& UserForm_TabStrip1.Tabs.Item(i).Caption
        
        TabName = UserForm_TabStrip1.Tabs(i).Name
        MsgBox "TabName = " & TabName
        
        MsgBox "TabStrip1.Tabs(TabName).Caption = "& UserForm_TabStrip1.Tabs(TabName).Caption
        MsgBox "TabStrip1.Tabs.Item(TabName).Caption = "& UserForm_TabStrip1.Tabs.Item(TabName).Caption

        '使用 Tab 对象而不引用 Tabs
          'collection
        If i = 0 Then
            MsgBox "TabStrip1.Tab1.Caption = " & UserForm_TabStrip1.Tab1.Caption
        ElseIf i = 1 Then
            MsgBox "TabStrip1.Tab2.Caption = " & UserForm_TabStrip1.Tab2.Caption
        End If

        '使用 SelectedItem 属性
        UserForm_TabStrip1.Value = i
        MsgBox "TabStrip1.SelectedItem.Caption = " & UserForm_TabStrip1.SelectedItem.Caption
    Next
End Sub