VBA 用户窗体:使用命令按钮导航到 MultiPage 中的另一个页面
VBA Userform: Using a command button to navigate to another page in MultiPage
使用命令按钮导航到 MultiPage 中的另一个页面,而不是单击表单顶部的实际页面
您必须使用 MultiPage 对象的 Value
属性。
代码示例:
NameOfYourForm.NameOfYourMultiPageObject.Value = 1
注意:首页不是值1而是值0
'Select first page
NameOfYourForm.NameOfYourMultiPageObject.Value = 0
'Select second page
NameOfYourForm.NameOfYourMultiPageObject.Value = 1
'Select third page
NameOfYourForm.NameOfYourMultiPageObject.Value = 2
结果示例
这是一个带有简单用户窗体和 4 个按钮的示例。
信息:
表单名称:MultiPageUserForm
多页对象的名称:MultiPageExample
Private Sub SelectPage1_Click()
MultiPageUserForm.MultiPageExample.Value = 0
End Sub
Private Sub SelectPage2_Click()
MultiPageUserForm.MultiPageExample.Value = 1
End Sub
Private Sub SelectPage3_Click()
MultiPageUserForm.MultiPageExample.Value = 2
End Sub
Private Sub SelectPage4_Click()
MultiPageUserForm.MultiPageExample.Value = 3
End Sub
使用命令按钮导航到 MultiPage 中的另一个页面,而不是单击表单顶部的实际页面
您必须使用 MultiPage 对象的 Value
属性。
代码示例:
NameOfYourForm.NameOfYourMultiPageObject.Value = 1
注意:首页不是值1而是值0
'Select first page
NameOfYourForm.NameOfYourMultiPageObject.Value = 0
'Select second page
NameOfYourForm.NameOfYourMultiPageObject.Value = 1
'Select third page
NameOfYourForm.NameOfYourMultiPageObject.Value = 2
结果示例
这是一个带有简单用户窗体和 4 个按钮的示例。
信息:
表单名称:MultiPageUserForm
多页对象的名称:MultiPageExample
Private Sub SelectPage1_Click()
MultiPageUserForm.MultiPageExample.Value = 0
End Sub
Private Sub SelectPage2_Click()
MultiPageUserForm.MultiPageExample.Value = 1
End Sub
Private Sub SelectPage3_Click()
MultiPageUserForm.MultiPageExample.Value = 2
End Sub
Private Sub SelectPage4_Click()
MultiPageUserForm.MultiPageExample.Value = 3
End Sub