Partager via

Propriétés TabFixedHeight, TabFixedWidth – Exemple

  • 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 le code de l’exemple dans la partie Déclarations d’un formulaire. 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 SpinButton nommé SpinButton1 pour le contrôle de la largeur ;

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

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

  • un SpinButton nommé SpinButton2 pour le contrôle de la hauteur ;

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

Private Sub UpdateTabWidth() 
 TextBox1.Text = SpinButton1.Value 
 TabStrip1.TabFixedWidth = SpinButton1.Value 
 MultiPage1.TabFixedWidth = SpinButton1.Value 
End Sub 
 
Private Sub UpdateTabHeight() 
 TextBox2.Text = SpinButton2.Value 
 TabStrip1.TabFixedHeight = SpinButton2.Value 
 MultiPage1.TabFixedHeight = SpinButton2.Value 
End Sub 
 
Private Sub UserForm_Initialize() 
 MultiPage1.Style = 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 
 
Private Sub SpinButton1_SpinDown() 
 UpdateTabWidth 
End Sub 
 
Private Sub SpinButton1_SpinUp() 
 UpdateTabWidth 
End Sub 
 
Private Sub SpinButton2_SpinDown() 
 UpdateTabHeight 
End Sub 
 
Private Sub SpinButton2_SpinUp() 
 UpdateTabHeight 
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.