Question

我有代码将用户引导到multiPage Userform中的下一个选项卡。我需要添加功能，当到达最后一个选项卡时，单击该按钮将使用户转到下一个Userform。

Private Sub CommandButton3_Click()
Dim iNextPage As Long
With Me.MultiPage1
    iNextPage = .Value + 1
    If iNextPage < .Pages.Count Then
        .Pages(iNextPage).Visible = True
        .Value = iNextPage
    End If
End With
End Sub

感激不尽的任何帮助

Answer 1

Multipages控件使用属性Value来查看实际页面的索引。第一页是0，第二页是1，依此类推

所以，如果我输入：

Debug.Print Me.MultiPage1.Value

我将从multipage1控件获取活动页面。

另外，您可以使用value属性设置要查看的页面。在示例中，如果键入：

Me.MultiPage1.Value=2

它将选择multipagecontrol的第（2）页（表示第三页，因为第一页为0）

此外，还有另一个属性。如果输入：

Me.MultiPage1.Pages.Count

您将获得多页控件的总页数。总页数总是比最后一页的索引多1。示例：如果您总共有3个页面，则表示您上一页的索引（属性值）为2。

所以你的代码应该是这样的：

Private Sub CommandButton3_click()


If Me.MultiPage1.Value = MyForm.MultiPage1.Pages.Count - 1 Then
    'I'm on the last tab. Code to go to next userform
Else
    Me.MultiPage1.Value = Me.MultiPage1.Value + 1
End If

End Sub

在最后一个选项卡上的MultiPage时移动到下一个Userform

1 个答案: