dechiuan999

回復 4# stillfish00


    謝謝大大的說明
小弟是了解在一段模組內
如何操作multipage
。但小弟是想試著在類別模組
內來操作multipage
。因此，小弟也在類別模組
裡宣告
Public WithEvents mPage As MSForms.MultiPage
但不知如何來操作mpage此物件對象。

謝謝大大！

stillfish00

回復 3# dechiuan999
你要知道使用者選取時是哪一個分頁，可以在change判斷
Private Sub MultiPage1_Change()
  msgbox MultiPage1.Pages(MultiPage1.Value).Caption
End Sub

dechiuan999

回復 2# stillfish00


    大大您好：

小弟試著將語法改成如下
也是不行呢？

ReDim mPg(1 To 2)
   
Set mPg(1) = New myClass
Set mPg(1).mPage = UserForm1.MultiPage1.Pages(0)
        
Set mPg(2) = New myClass
Set mPg(2).mPage = UserForm1.MultiPage1.Pages(1)

另小弟想在物件類別增列
Private Sub mPage_Change()
       
End Sub
內容為當使用者選取
page時能得知是
page1的名稱pdf檔
或是
page2的名稱azlb檔
是否可請大大能提供修正的
語法讓小弟學習multipage
在物件類別如何運作


謝謝您！

stillfish00

回復 1# dechiuan999
1.  Set mPg(k) = New myClass，你把k寫成1了
2.  UserForm上只有一個MultiPage物件，即MultiPage1，
      "PDF檔"和"AZLB檔"這兩個分頁是 MultiPage1 底下的 Page 物件，
      例如分頁"PDF檔"可用 : MultiPage1.Page1 或 MultiPage1.Page(0) 表示