Compartir a través de


Ejemplo de propiedades TabFixedHeight y TabFixedWidth

En el ejemplo siguiente se usan las propiedades TabFixedHeight y TabFixedWidth para establecer el tamaño de las pestañas usadas en MultiPage y TabStrip.

El usuario hace clic en los controles SpinButton para ajustar el alto y el ancho de las pestañas dentro de MultiPage y TabStrip.

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

  • Un control MultiPage denominado MultiPage1.

  • Un control TabStrip denominado TabStrip1.

  • Un control Label denominado Label1 para el control del ancho.

  • Un elemento SpinButton denominado SpinButton1 para el control del ancho.

  • Un control TextBox denominado TextBox1 para el control del ancho.

  • Un control Label denominado Label2 para el control del alto.

  • Un elemento SpinButton denominado SpinButton2 para el control de la altura.

  • Un elemento TextBox denominado TextBox2 para el control de la altura.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.