12
返回列表 上一主題 發帖

[發問] 如何將表單內的multipage增設物件類別呢？

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
5# 跳轉到 »
發表於 2013-10-25 17:35 | 只看該作者
本帖最後由 dechiuan999 於 2013-10-25 17:38 編輯

回復 4# stillfish00


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

謝謝大大！

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2013-10-25 15:43 | 只看該作者
本帖最後由 stillfish00 於 2013-10-25 15:44 編輯

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

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
3#
發表於 2013-10-25 14:41 | 只看該作者
回復 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
在物件類別如何運作


謝謝您！

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-10-25 13:49 | 只看該作者
回復 1# dechiuan999
1.  Set mPg(k) = New myClass，你把k寫成1了
2.  UserForm上只有一個MultiPage物件，即MultiPage1，
      "PDF檔"和"AZLB檔"這兩個分頁是 MultiPage1 底下的 Page 物件，
      例如分頁"PDF檔"可用 : MultiPage1.Page1 或 MultiPage1.Page(0) 表示

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
12
返回列表 上一主題