Question

我有一个多页的用户表单。我希望在顶部显示多页的选项卡，以便用户知道他在哪个页面以及剩下多少页面。但我想通过按下选项卡名称来禁用在选项卡之间跳转的可能性。相反，只有下一个和后退按钮可用于在页面之间导航。是否可以通过使用属性，或者我是否必须为多次更改编写代码？

Answer 1

使用一个多页控件创建表单

然后添加此代码...单击表单背景以查看结果

Private Sub UserForm_Click()

    If UserForm1.MultiPage1.Pages(0).Enabled Then
        UserForm1.MultiPage1.Pages(1).Enabled = True    ' must always have at least one enabled
        UserForm1.MultiPage1.Pages(0).Enabled = False   ' otherwise it looks bad
    Else
        UserForm1.MultiPage1.Pages(0).Enabled = True    ' reverse statements, and you will see
        UserForm1.MultiPage1.Pages(1).Enabled = False
    End If

End Sub

多页标签可见，但不活动

1 个答案: