lyc43210

¦^´_ 2# lpk187

ÁÂÁÂ

³æ¯Â³o¼Ë¨Ï¥Î¥i¥H
¥i¬O­Y­n®M¥Î¶i¨ä¥Lµ{¦¡
¦³®É·|²{¦b¥i¥H µy·L±±¨î¹³°µ¨Ç­×§ï«á ´N¤S¤£¦æ¤F
±`±`·|¦b  Set X_OB(A).OB = Controls(A)     ³o¦æ¥X²{¿ù»~

§Æ±æ°ª¤â­Ì¯àÄ~Äò«ü¾É
ÁÂÁÂ

bobomi

¤µ¤Ñ·Q¨ì 1­Ó¤èªk ¤£»Ý¥Î  Dim X_OB( ) As New Class1  ( ¦h¤@­Ó Class )
¦Ó¬O§â private  WithEvents OB_±±¥ó°}¦C  As MSForms.OptionButton ª½±µ©ñ¦b UserForm  ¸Ì­±
´N¥i¥H¹ê²{±±¥ó°}¦Cªº¤èªk
¥i¥H´î¤Ö³Â·Ð
¦³µy¬° try ¹L, ¦n¹³¥i¦æ  ......  good!!

lpk187

¦^´_ 1# lyc43210


   
¤]¤£ª¾¹ï¤£¹ï¡A¨þ¨þ¡I§Ú¤]¬O½m²ß
UserForm:

1. Dim X_OB() As New Class1
   
2. 
   
3. Private Sub UserForm_Initialize()
   
4.     I = Cells(1, 1).End(xlToRight).Column
   
5.     h = 0
   
6.     ReDim X_OB(1 To I)
   
7.     Dim myC As Control
   
8.     For A = 1 To I
   
9.         Set myC = Controls.Add(bstrprogid:="Forms.optionButton.1")
   
10.         myC.Top = h
    
11.         h = h + 20
    
12.         myC.Caption = Cells(1, A)
    
13.         Set X_OB(A).OB = Controls(A)
    
14.     Next A
    
15. End Sub

½Æ»s¥N½X

Class1:

1. Public WithEvents OB As MSForms.OptionButton
   
2. 
   
3. Private Sub OB_Click()
   
4.     UserForm1.Label1 = OB.Caption
   
5. End Sub

½Æ»s¥N½X