如何在運行時成功地將頁面添加到 MultiPage，而不會出現運行時錯誤或 object 斷開連接錯誤

Question

我正在嘗試創建一個用戶表單，它以兩個多頁開始，一個在另一個后面，它將包含不同類型的數據，比如，一個是帳戶，另一個是營銷。 這個想法是，如果用戶單擊用戶表單上的營銷按鈕，那么他們將獲得 multipage1，如果他們單擊帳戶，他們將獲得 multipage2。

我遇到的問題是，如果我以編程方式創建 MP，然后調用函數來創建更多頁面，那么我會收到“對象已與客戶端斷開連接”錯誤。 如果我使用這篇文章中的方法，即首先創建 MP，然后我得到運行時錯誤，object 頁面的方法添加失敗。 當我嘗試將頁面添加到 mp1 時出現此錯誤。 因此，我決定將下面的代碼編寫為測試循環，以展示我正在嘗試做的事情。 它基本上是在模擬用戶向其營銷頁面添加 10 個新頁面。 也許這將是 10 個新的營銷方案，誰知道呢。 然后帳戶多頁相同。 關鍵是，當我嘗試在我的實際項目中添加一個頁面時，下面給出了同樣的錯誤。 所以我在想，如果我可以修復下面的代碼，那么我可以將相同的修復應用到我的項目中。 任何幫助將不勝感激。 我已經嘗試解決這個問題兩個星期了。

Private Sub UserForm_Initialize()

page_num = 0

Set mp1 = Me.MultiPage1
Set mp2 = Me.MultiPage2

Do
  With mp1
    .Enabled = False
    .Visible = False
  End With
  With mp2
    .Enabled = True
    .Visible = True
    .SetFocus
    .Pages.Add
    .Pages(page_num).Caption = page_num
  End With
  With mp2
    .Enabled = False
    .Visible = False
  End With
  With mp1
    .Enabled = True
    .Visible = True
    .SetFocus
    .Pages.Add
    .Pages(page_num).Caption = page_num
  End With
  page_num = page_num + 1
      
Loop While page_num <> 10
      
End Sub`

Answer 1

解決這個問題最簡單的方法似乎是將多頁放在一個框架中。 誰知道。

在表單上動態添加一頁到多頁多頁