|
|
发表于 2013-4-3 16:31:17
|
显示全部楼层
来自: 中国北京
楼主代码够长的
" A# H y8 j& Z, r" J3 j公布关键代码
9 s) ]; D6 v6 g9 Haaa = True
$ Y5 W( Z. K5 |2 A& _For i = 1 To UBound(fileFeatureName, 2) L7 e; \$ s1 Z3 r+ N2 }% u! B
MyHexColor = (Hex(LabelString(i).BackColor))
' J+ ^% L% y# P3 [ If Output.Takecolor(MyHexColor, Dec1, Dec2, Dec3) = True Then+ w( P( Y" W; p9 p0 y; g1 R" X3 Z
fileFeatureName(1, i - 1) = Dec1
4 G/ `0 [ i" D8 H fileFeatureName(2, i - 1) = Dec2
! K9 W0 b, U" b- \9 ` fileFeatureName(3, i - 1) = Dec3
7 t; X: D: i, h End If
/ a+ Y E' M5 u* y# o( A& L
& \: b* X& F2 fNext i
* {1 M0 R' U4 N9 x2 f& @( UUnload AutoColorForm |
|