ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¤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)

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD