ªí³æBottom¤ºªºµ{¦¡¡A¦p¦ó¶Ç¦^¼Æ­È??

yenwang

¤j®a¦n
§Ú²{¦bÀ°¦P¨Æ¼g­Ó¤pµ{¦¡
¨ä¤¤»Ý­n¨Ï¥ÎªÌ¦Û¦æ¬D¿ï»Ý¨DªºÃC¦â
§Úªº¤è¦¡¬O¦bMainProgram¤¤
call ColorList¥h¥s¥X¿ï³æ¦â±m
¨Ï¥ÎªÌ¬D¿ï§¹¤§«á
«ö¤U¿ï³æªºOK
«hOK¤ºªºµ{¦¡½X¥i¥H±N¨Ï¥ÎªÌ¬D¿ïªºÃC¦â©M¼Æ¶q¬ö¿ý¨ì¬Y­ÓArray¤¤

µM«á§Ú´N¥d¦í¤F
¦]¬°¤£ª¾¹D«ç»ò±N§P§O§¹¦¨ªºArray¶Ç¦^¨ìMain Program¤¤¶i¦æ«áÄòªº­pºâ
·Q°Ý»¡ªO¤Wªº¤j®a¥i§_À°¦£¬Ý¬Ý­n«ç»ò¸Ñ¨M
thank you!




colortable-20141202.rar (17.73 KB)

ªþ¥ó
¤U¸ü¦¸¼Æ: 2

2014-12-2 22:16

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

yenwang

·PÁ¡A§Ú³Ì«á¤]§ä¨ì¸Ñ¨M¤è¦¡
¥Î¤½¥ÎÅܼƴN¥i¥H¸Ñ¨M¤F^^