|
|
发表于 2013-4-3 16:31:17
|
显示全部楼层
来自: 中国北京
楼主代码够长的
, i/ z, [& g2 o( p2 X: P' q公布关键代码
. f2 q2 r5 Q! _ D8 e( E: ~aaa = True8 C a- {6 N7 j
For i = 1 To UBound(fileFeatureName, 2)$ C8 U. J6 k: J; h) \8 g
MyHexColor = (Hex(LabelString(i).BackColor))( _0 T0 C+ ]6 I7 Z& n
If Output.Takecolor(MyHexColor, Dec1, Dec2, Dec3) = True Then
# A# _: U l: J, [1 l- e: ] fileFeatureName(1, i - 1) = Dec1( v: w# r5 H' f& r$ s
fileFeatureName(2, i - 1) = Dec2* F& M6 n7 g0 n& r+ U
fileFeatureName(3, i - 1) = Dec3
& Z# l: A/ ^9 J7 v% w$ C$ M! ] End If* G" t( T9 N% q
5 v7 `" n; _/ G7 y' fNext i* s* X# I+ `: R" r/ J
Unload AutoColorForm |
|