kimbal

¦^´_ 1# dechiuan999


    ¸Õ¸Õ­×§ï¤@¤Uªí³æ³¡¥÷:

1. Dim myControl() As mTxtClass
   
2. 
   
3. Private Sub UserForm_Initialize()
   
4. 
   
5. 
   
6.     Dim i As Long
   
7.     ReDim myControl(1 To 3)
   
8.     For i = 1 To 3
   
9.         Set myControl(i) = New mTxtClass
   
10.         Set myControl(i).tb = Me.Controls("Textbox" & CStr(i))
    
11.         Set myControl(i).lb = Me.Controls("Label" & CStr(i))
    
12.     Next
    
13.    
    
14.     myControl(1).ck1 = 1
    
15.     myControl(2).ck1 = 2
    
16.     myControl(3).ck1 = 3
    
17.    
    
18.    
    
19. End Sub

½Æ»s¥N½X