Ändern der Reihenfolge von Seiten und Registerkarten
The following example uses the Index property to change the order of the pages and tabs in a MultiPage and TabStrip. The user chooses CommandButton1 to move the third page and tab to the front of the MultiPage and TabStrip. 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.
Kopieren Sie diesen Beispielcode in den Skript-Editor eines Formulars. 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
Dim MultiPage1
Dim TabStrip1
Sub CommandButton1_Click()
'Move third page and tab to front of control
MultiPage1.page3.Index = 0
TabStrip1.Tab3.Index = 0
End Sub
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
Sub Item_Open()
Set MultiPage1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("MultiPage1")
Set TabStrip1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TabStrip1")
Set CommandButton1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CommandButton1")
Set CommandButton2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CommandButton2")
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für