Style 属性和标签控件示例

下例用 Style 属性来指定多页控件和 TabStrip 的标签的外观。这个示例还演示了使用标签的方法。用户通过选择选项按钮来选取样式。

窗体包含：

• 名为 Label1 的标签。
• 名为 OptionButton1 到 OptionButton3 的三个选项按钮控件。
• 名为 MultiPage1 的多页控件。
• 名为 TabStrip1 的 TabStrip。
• TabStrip 之中的任意控件。

示例

金字塔

Sub UserForm_OptionButton1_Click()
    UserForm_MultiPage1.Style = fmTabStyleTabs
    UserForm_TabStrip1.Style = fmTabStyleTabs
End Sub

Sub OptionButton2_Click()
    '注意页面边界是看不见的
    UserForm_MultiPage1.Style = fmTabStyleButtons
    UserForm_TabStrip1.Style = fmTabStyleButtons
End Sub

Sub UserForm_OptionButton3_Click()
    '注意页面边界是看不见的
    '并且页正文开始于标签
     '正常出现处
    UserForm_MultiPage1.Style = fmTabStyleNone
    UserForm_TabStrip1.Style = fmTabStyleNone
End Sub

Sub UserForm_Initialize()
    UserForm_Label1.Caption = "Page/Tab Style"
    UserForm_OptionButton1.Caption = "Tabs"
    UserForm_OptionButton1.Value = True
    UserForm_MultiPage1.Style = fmTabStyleTabs
    UserForm_TabStrip1.Style = fmTabStyleTabs
    
    UserForm_OptionButton2.Caption = "Buttons"
    UserForm_OptionButton3.Caption = "No Tabs or Buttons"
End Sub