stillfish00

¦^´_ 1# dechiuan999
1.  Set mPg(k) = New myClass¡A§A§âk¼g¦¨1¤F
2.  UserForm¤W¥u¦³¤@­ÓMultiPageª«¥ó¡A§YMultiPage1¡A
      "PDFÀÉ"©M"AZLBÀÉ"³o¨â­Ó¤À­¶¬O MultiPage1 ©³¤Uªº Page ª«¥ó¡A
      ¨Ò¦p¤À­¶"PDFÀÉ"¥i¥Î : MultiPage1.Page1 ©Î MultiPage1.Page(0) ªí¥Ü

stillfish00

¦^´_ 3# dechiuan999
§A­nª¾¹D¨Ï¥ÎªÌ¿ï¨ú®É¬O­þ¤@­Ó¤À­¶¡A¥i¥H¦bchange§PÂ_
Private Sub MultiPage1_Change()
  msgbox MultiPage1.Pages(MultiPage1.Value).Caption
End Sub

stillfish00

¦^´_ 5# dechiuan999
§Úª¾¹D§A­nªº¬O
myClass

1. Option Explicit
   
2. 
   
3. Public WithEvents mTxt As MSForms.TextBox
   
4. Public WithEvents mCmd As MSForms.CommandButton
   
5. Public WithEvents mPage As MSForms.MultiPage
   
6. 
   
7. Private Sub mPage_Change()
   
8.   MsgBox mPage.Pages(mPage.Value).Caption
   
9. End Sub

½Æ»s¥N½X

Userform

1. Private Sub UserForm_Initialize()
   
2.    
   
3.     Dim i As Long
   
4.     Dim j As Long
   
5.     Dim k As Long
   
6.    
   
7.     ReDim mTb(1 To 2)
   
8.     For i = 1 To 2
   
9.         Set mTb(i) = New myClass
   
10.         Set mTb(i).mTxt = Me.Controls("Textbox" & i)
    
11.         co1.Add mTb(i).mTxt
    
12.     Next
    
13.    
    
14.     ReDim mCd(1 To 6)
    
15.     For j = 1 To 6
    
16.         Set mCd(j) = New myClass
    
17.         Set mCd(j).mCmd = Me.Controls("CommandButton" & j)
    
18.         co2.Add mCd(j).mCmd
    
19.     Next
    
20.    
    
21.     ReDim mPg(1 To 1)
    
22.     For k = 1 To 1
    
23.         Set mPg(k) = New myClass
    
24.         Set mPg(k).mPage = Me.Controls("MultiPage" & k)
    
25.     Next
    
26. End Sub

½Æ»s¥N½X

¦ý¬OÀ³¸Ó¬O Userform ¤W¦³«Ü¦h­Ó MultiPage ®É³o¼Ë¼g¤~¦³¥Î§a¡C

stillfish00

¦^´_ 7# GBKEE
«Å§i³oÃä¬O¦h¤F¡A¦ý§Úı±o¥ý
Dim mPg() As myClass
«á­±¦A
Set mPg(1) = New myClass
Å㦡¦a³Ð«Ø¹êÅé·|¤ñ¸û¦n¡A¤]¥i¥H©ú½Tª¾¹DClass_Initialize()³QIJµo¦ì¸m