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.