共用方式為

SelectedItem 屬性、TabStrip 控制項、Tab 物件、Tabs 集合範例

  • 發行項

下列範例以下面幾種方法存取 TabStrip 中單個索引標籤：

  • 使用含有數字索引的 Tabs 集合 (Tabs Collection)。

  • 搭配字串索引使用 Tabs 集合。

  • 搭配Item方法使用Tabs集合。

  • 使用單個 Tab 的名稱。

  • 使用 SelectedItem 屬性。

若要使用本範例，請將此範例程式碼複製到表單的宣告部分中。 請確定該表單包含一個名為 TabStrip1 的 TabStrip 。

Private Sub UserForm_Initialize() 
 Dim TabName As String 
 
 For i = 0 To TabStrip1.Count - 1 
 'Using index (numeric or string) 
 MsgBox "TabStrip1.Tabs(i).Caption = " _ 
 & TabStrip1.Tabs(i).Caption 
 MsgBox "TabStrip1.Tabs.Item(i).Caption = " _ 
 & TabStrip1.Tabs.Item(i).Caption 
 
 TabName = TabStrip1.Tabs(i).Name 
 MsgBox "TabName = " & TabName 
 
 MsgBox "TabStrip1.Tabs(TabName).Caption = " _ 
 & TabStrip1.Tabs(TabName).Caption 
 MsgBox "TabStrip1.Tabs.Item(TabName)_ 
 .Caption = " _ 
 & TabStrip1.Tabs.Item(TabName).Caption 
 
 'Use Tab object without referring to Tabs 
 'collection 
 If i = 0 Then 
 MsgBox "TabStrip1.Tab1.Caption = " _ 
 & TabStrip1.Tab1.Caption 
 ElseIf i = 1 Then 
 MsgBox "TabStrip1.Tab2.Caption = " _ 
 & TabStrip1.Tab2.Caption 
 EndIf 
 
 'Use SelectedItem Property 
 TabStrip1.Value = i 
 MsgBox "TabStrip1.SelectedItem.Caption = " _ 
 & TabStrip1.SelectedItem.Caption 
 Next i 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。