excel - 在先前创建的多页上调用添加时，VB6自动化错误

我想生成一堆MultiPages并在我的应用程序中动态创建新的Pages，但是我遇到运行时错误'-2147417848(80010108)':自动化错误调用的对象已与其客户端断开连接。

重现步骤

在名为TestClass的类模块中:

Public WithEvents TestMultiPage As MsForms.MultiPage

Sub createPage()
    TestMultiPage.Add
End Sub

在名为TestForm的用户窗体中:

Dim TestInstances as New Collection

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X as Single, ByVal Y as Single)
    If Button = fmButtonRight Then
        Dim TestInstance as New TestClass
        Set TestInstance.TestMultiPage = Me.Controls.Add("Forms.MultiPage.1")
        TestInstances.Add TestInstance
    End If
End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim TestInstance As TestClass: Set TestInstance = TestInstances(1)
    TestInstance.createPage
End Sub

当我用鼠标右键单击两次用户窗体时，我得到两个MultiPages。然后，我双击用户窗体，期望第一个MultiPage有一个新的Page。但是我在TestInstance.createPage-> TestMultiPage.Add上遇到了自动化错误，即使所有变量似乎都从Locals窗口出现。

我想念什么？

结论

遵循@GSerg的回答，我想MultiPage无法做到这一点。
相反，我必须改用TabStrip并模拟MultiPage的其他行为。

为了添加一些上下文，我试图创建一个带有窗口和标签的类似于浏览器的UI(底部的TabStrip代表不同的窗口，每个窗口对应于具有多个标签的MultiPage)。当切换回上一个MultiPage并创建一个新的选项卡时，我遇到了晦涩的错误。

最佳答案

MSForms中似乎存在一个问题，当添加新的MultiPage控件时，它将破坏现有的MultiPage控件。要重现该问题，您不需要集合，数组，类甚至变量:

Sub Reproduce()
  Me.Controls.Add "Forms.MultiPage.1", "TestInstance1"
  Me.Controls("TestInstance1").Add  ' That works

  Me.Controls.Add "Forms.MultiPage.1", "TestInstance2"
  Me.Controls("TestInstance1").Add  ' Now it does not
  Me.Controls("TestInstance2").Add  ' But the new shiny one does

  Me.Controls.Add "Forms.MultiPage.1", "TestInstance3"
  Me.Controls("TestInstance2").Add  ' Now the instance 2 is also defunct
  Me.Controls("TestInstance3").Add  ' Only the latest one works
End Sub

我不知道为什么会这样。它看起来像MSForms中的错误。

否则控件可以正常工作，并且它们的属性可以访问，您就不能再调用Add了。