GBKEE

¦^´_ 1# yenwang

¤£²M·¡,Main Program¤¤¶i¦æ«áÄòªº­pºâ.
¸Õ¸Õ¬Ý

1. Public colorarray()
   
2. Sub MainProgram()
   
3.     Dim Cnt As Variant
   
4.     ColorList
   
5.     For Each Cnt In colorarray
   
6.         MsgBox Cnt
   
7.     Next
   
8. End Sub

½Æ»s¥N½X

1. Private Sub cmdOk_Click()
   
2.     Dim i
   
3.     Dim Cnt As Variant    '¥Î¨Ó¨ú±o¦@¦³¦h¤Öcheckbox¿ï¤W
   
4.     i = 0
   
5.     For Each Cnt In Controls
   
6.         If TypeName(Cnt) = "CheckBox" Then
   
7.             If Cnt.Value Then
   
8.                 ReDim Preserve colorarray(0 To i)
   
9.                  colorarray(i) = Cnt.Tag
   
10.                 i = i + 1
    
11.             End If
    
12.         End If
    
13.     Next
    
14.    
    
15. End Sub
    
16. Private Sub cmdCancel_Click()
    
17.     Unload Me
    
18. End Sub

½Æ»s¥N½X