Freigeben über

Beispiele für SelectedItem-Eigenschaft, TabStrip-Steuerelement, Tab-Objekt, Tabs-Auflistung

  • Artikel

Im folgenden Beispiel wird mit folgenden Methoden auf eine Registerkarte eines Register-Steuerelements ( TabStrip ) zugegriffen:

  • Verwenden der Tabs -Auflistung mit einem numerischen Index.

  • Mithilfe der Tabs -Auflistung und eines Zeichenfolgenindizes.

  • Verwenden der Tabs-Auflistung mit der Item-Methode .

  • Mithilfe des Namens des betreffenden Tab.

  • Verwenden der SelectedItem -Eigenschaft.

Wenn Sie dieses Beispiel verwenden möchten, kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Das Formular muss einen TabStrip mit dem Namen "TabStrip1" enthalten.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.