多页选项卡可见，但不活动

我有一个多页的用户表单。 我想要在顶部显示一个多页面的标签，这样用户就知道他在哪个页面上，剩下多less。 但我想通过按下标签名称来禁用在标签之间跳转的可能性。 相反，只有下一个和后一个button才能在页面之间导航。 是仅仅通过使用这些属性是可能的，还是我必须编写mulipage更改的代码？

Answer 1

用一个多页控件创build表单

然后添加此代码…单击窗体背景以查看结果

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