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

lpk187

¦^´_ 4# lyc43210


   §A¨S¦³§iª¾°µ¤F¤°»ò¼Ëªº­×§ï«á²£¥Í°ÝÃD¡C
©Ò¥H«ÜÃø¥h°µ¥X¦^µª¡I
¥i¥Hªº¸Ü¡C§â­×§ï¦³°ÝÃDªºµ{¦¡½X¥á¤W¨Ó¡A³o¼Ë­n¦^µª§A¤]¤ñ¸û¦³¤è¦V

lpk187

¦^´_ 4# lyc43210


  °²³]§A¬O¦³¨ä¥L±±¨î¶µªº¸Ü
  Set X_OB(A).OB = Controls(A)
³o¸ÌªºÅܼÆA¥i¥H§â¥¦§ï¦¨ Set myC = Controls.Add...·s¼W±±¶µªº¦WºÙ
¦p¤U¡G
Set X_OB(A).OB = Controls(myC.Name)

­ì¥»ªºÅܼÆA¬O«ü¨ì¥¦ªºControls§Ç¸¹¦ì¸m¡A§ï¦WºÙ¬O·|«ü¦V·s¼WControls±±¶µªº¦WºÙ

lpk187

¦^´_ 7# lyc43210

¤U¸ü (109.82 KB)

2015-6-17 22:38

lpk187

¦^´_ 10# lyc43210

¤W¶Ç§AªºÀɮפW¨Ó§a¡I

lpk187

¦^´_ 10# lyc43210

¶â¡I§ä¥X¨Óªº­ì¦]¦bSet X_OB(a ).OB = Controls(myC.Name)
­ì¨ÓªºReDim X_OB(15 To i)
°}¦C¬O±q15¶}©l
¦ýFor a = 1 To i - 14
³o¸Ìªº AÅܼƫh¬O±q1¶}©l©MX_OB°}¦Cªº½s¸¹¤£¦P³y¦¨ªº¿ù»~©Ò¥H­n§ï¦¨¤U¦C¡G
Set X_OB(a + 14).OB = Controls(myC.Name)