Festlegen der Höhe und Breite von Registerkarten in einem MultiPage-Steuerelement und einem TabStrip-Steuerelement
The following example uses the TabFixedHeight and TabFixedWidth properties to set the size of the tabs used in MultiPage and TabStrip. Der Benutzer klickt auf die SpinButton-Steuerelemente , um die Höhe und Breite der Registerkarten innerhalb von MultiPage und TabStrip anzupassen.
To use this example, copy this sample code to the Script Editor of a form. To run the code you need to open the form so the Open event will activate. Make sure that the form contains:
Ein MultiPage -Objekt mit der Bezeichnung "MultiPage1".
Ein TabStrip -Objekt mit der Bezeichnung "TabStrip1".
Ein Bezeichnungsfeld -Steuerelement (Label) mit der Bezeichnung "Label1" zum Steuern der Breite.
Ein Drehfeld-Steuerelement ( SpinButton ) mit der Bezeichnung "SpinButton1" zum Steuern der Breite, das an ein benutzerdefiniertes numerisches Feld mit der Bezeichnung "SpinButtonWidth" gebunden ist.
Ein Textfeld -Steuerelement (TextBox) mit der Bezeichnung "TextBox1" zum Steuern der Breite.
Ein Bezeichnungsfeld-Steuerelement ( Label ) mit der Bezeichnung "Label2" zum Steuern der Höhe.
Ein Drehfeld-Steuerelement ( SpinButton ) mit der Bezeichnung "SpinButton2" zum Steuern der Höhe, das an ein benutzerdefiniertes numerisches Steuerelement mit der Bezeichnung "SpinButtonHeight" gebunden ist.
Ein Textfeld-Steuerelement ( TextBox ) mit der Bezeichnung "TextBox2" zum Steuern der Höhe.
Sub UpdateTabWidth()
Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1")
Set SpinButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("SpinButton1")
Set TabStrip1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TabStrip1")
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1")
TextBox1.Text = SpinButton1.Value
TabStrip1.TabFixedWidth = SpinButton1.Value
MultiPage1.TabFixedWidth = SpinButton1.Value
End Sub
Sub UpdateTabHeight()
Set TextBox2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox2")
Set SpinButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("SpinButton2")
Set TabStrip1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TabStrip1")
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1")
TextBox2.Text = SpinButton2.Value
TabStrip1.TabFixedHeight = SpinButton2.Value
MultiPage1.TabFixedHeight = SpinButton2.Value
End Sub
Sub Item_Open()
Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1")
Set TextBox2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox2")
Set SpinButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("SpinButton1")
Set SpinButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("SpinButton2")
Set TabStrip1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TabStrip1")
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1")
Set Label1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Label1")
Set Label2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Label2")
MultiPage1.Style = 1 '1=fmTabStyleButtons
Label1.Caption = "Tab Width"
SpinButton1.Min = 0
SpinButton1.Max = TabStrip1.Width / TabStrip1.Tabs.Count
SpinButton1.Value = 0
TextBox1.Locked = True
UpdateTabWidth
Label2.Caption = "Tab Height"
SpinButton2.Min = 0
SpinButton2.Max = TabStrip1.Height
SpinButton2.Value = 0
TextBox2.Locked = True
UpdateTabHeight
End Sub
Sub Item_CustomPropertyChange(byval pname)
'msgbox pname
If pname = "SpinButtonWidth" Then
UpdateTabWidth
ElseIf pname = "SpinButtonHeight" Then
UpdateTabHeight
End If
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