TabFixedHeight 和 TabFixedWidth 属性示例

下例用 TabFixedHeight 和 TabFixedWidth 属性，设置用于多页控件和 TabStrip 中的标签的尺寸。用户可单击数值调节钮控件来调整多页控件和 TabStrip 中标签的高度和宽度。

窗体包含：

• 名为 MultiPage1 的多页控件。
• 名为 TabStrip1 的 TabStrip。
• 名为 Label1 的标签，用于宽度控制。
• 名为 SpinButton1 的数值调节钮，用于宽度控制。
• 名为 TextBox1 的文本框，用于宽度控制。
• 名为 Label2 的标签，用于高度控制。
• 名为 SpinButton2 的数值调节钮，用于高度控制。
• 名为 TextBox2 的文本框，用于高度控制。

'建议窗体对象内的代码只编写与本窗体事件有关的代码，不要使用作用于整个工程的变量及过程函数。


Sub UpdateTabWidth()
    UserForm_TextBox1.Text = UserForm_SpinButton1.Value
    UserForm_TabStrip1.TabFixedWidth = UserForm_SpinButton1.Value
    UserForm_MultiPage1.TabFixedWidth = UserForm_SpinButton1.Value
End Sub

Sub UpdateTabHeight()
    UserForm_TextBox2.Text = UserForm_SpinButton2.Value
    UserForm_TabStrip1.TabFixedHeight = UserForm_SpinButton2.Value
    UserForm_MultiPage1.TabFixedHeight = UserForm_SpinButton2.Value
End Sub

Sub UserForm_Initialize()
    UserForm_MultiPage1.Style = fmTabStyleButtons
    
    UserForm_Label1.Caption = "Tab Width"
    UserForm_SpinButton1.Min = 0
    UserForm_SpinButton1.Max = UserForm_TabStrip1.Width / UserForm_TabStrip1.Tabs.Count
    UserForm_SpinButton1.Value = 0
    UserForm_TextBox1.Locked = True
    
    UpdateTabWidth
    
    UserForm_Label2.Caption = "Tab Height"
    UserForm_SpinButton2.Min = 0
    UserForm_SpinButton2.Max = UserForm_TabStrip1.Height
    UserForm_SpinButton2.Value = 0
    UserForm_TextBox2.Locked = True
    
    UpdateTabHeight
End Sub

Sub UserForm_SpinButton1_SpinDown()
    UpdateTabWidth
End Sub

Sub UserForm_SpinButton1_SpinUp()
    UpdateTabWidth
End Sub

Sub UserForm_SpinButton2_SpinDown()
    UpdateTabHeight
End Sub

Sub SpinButton2_SpinUp()
    UpdateTabHeight
End Sub