Beispiel für Index-Eigenschaft

Im folgenden Beispiel wird die Index-Eigenschaft verwendet, um die Reihenfolge der Seiten und Registerkarten in einem MultiPage - und TabStrip-Objekt zu ändern.

Der Benutzer verwendet CommandButton1, um die dritte Seite und die dritte Registerkarte an die erste Stelle des MultiPage - und TabStrip -Steuerelements zu verschieben.

Der Benutzer verwendet CommandButton2, um die ausgewählte Seite und die ausgewählte Registerkarte an die letzte Position des MultiPage - und TabStrip -Steuerelements zu verschieben.

Sie können dieses Beispiel verwenden, indem Sie diesen Beispielcode in den Deklarationsabschnitt eines Formulars kopieren. Make sure that the form contains:

• Zwei Befehlsschaltflächen-Steuerelemente ( CommandButton ) mit der Bezeichnung "CommandButton1" und "CommandButton2".
• Ein MultiPage -Objekt mit der Bezeichnung "MultiPage1".
• Ein TabStrip -Objekt mit der Bezeichnung "TabStrip1".

Dim MyPageOrTab As Object 
 
Private Sub CommandButton1_Click() 
'Move third page and tab to front of control 
 MultiPage1.page3.Index = 0 
 TabStrip1.Tab3.Index = 0 
End Sub 
 
Private Sub CommandButton2_Click() 
'Move selected page and tab to back of control 
 Set MyPageOrObject = MultiPage1.SelectedItem 
 MsgBox "MultiPage1.SelectedItem = " _ 
 & MultiPage1.SelectedItem.Name 
 MyPageOrObject.Index = 4 
 
 Set MyPageOrObject = TabStrip1.SelectedItem 
 MsgBox "TabStrip1.SelectedItem = " _ 
 & TabStrip1.SelectedItem.Caption 
 MyPageOrObject.Index = 4 
End Sub 
 
Private Sub UserForm_Initialize() 
 MultiPage1.Width = 200 
 MultiPage1.Pages.Add 
 MultiPage1.Pages.Add 
 MultiPage1.Pages.Add 
 
 TabStrip1.Width = 200 
 TabStrip1.Tabs.Add 
 TabStrip1.Tabs.Add 
 TabStrip1.Tabs.Add 
 
 CommandButton1.Caption = _ 
 "Move third page/tab to front" 
 CommandButton1.Width = 120 
 
 CommandButton2.Caption = _ 
 "Move selected item to back" 
 CommandButton2.Width = 120 
 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.