Partager via

Définir la hauteur et la largeur des onglets dans un contrôle MultiPage et un contrôle TabStrip

  • Article

L’exemple suivant utilise les propriétés TabFixedHeight et TabFixedWidth pour définir la taille des onglets utilisés dans MultiPage et TabStrip. L’utilisateur clique sur les contrôles SpinButton pour ajuster la hauteur et la largeur des onglets dans les contrôles MultiPage et TabStrip.

Pour utiliser cet exemple, copiez-en le code vers l’éditeur de script d’un formulaire. Pour exécuter le code, vous devez ouvrir le formulaire afin d’activer l’événement Open. Vérifiez que le formulaire contient :

  • un MultiPage nommé MultiPage1 ;

  • un TabStrip nommé TabStrip1 ;

  • Étiquette nommée Label1 pour le contrôle de largeur.

  • un contrôle SpinButton nommé SpinButton1 pour le réglage de la largeur, lié à un champ numérique personnalisé nommé SpinButtonWidth ;

  • TextBox nommé TextBox1 pour le contrôle width.

  • un contrôle Label nommé Label2 pour le réglage de la hauteur ;

  • un contrôle SpinButton nommé SpinButton2 pour le réglage de la hauteur, lié à un champ numérique personnalisé nommé SpinButtonHeight ;

  • un contrôle TextBox nommé TextBox2 pour le réglage de la hauteur.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.