|
|
发表于 2013-4-3 16:31:17
|
显示全部楼层
来自： 中国北京
楼主代码够长的- V4 Y% v" k" n" g/ ?7 ?( \
公布关键代码 ~% X7 ?' g8 S, }1 G
aaa = True O4 H$ t1 r4 l( Z
For i = 1 To UBound(fileFeatureName, 2)( H J& ]# z! U$ t9 ]: w: H
MyHexColor = (Hex(LabelString(i).BackColor))3 A, Z& F0 [$ o
If Output.Takecolor(MyHexColor, Dec1, Dec2, Dec3) = True Then/ U, @: \: U1 F" ~# F
fileFeatureName(1, i - 1) = Dec13 J9 b- f6 N, F C/ m( c0 \4 G
fileFeatureName(2, i - 1) = Dec2 z2 P* @) ]7 X
fileFeatureName(3, i - 1) = Dec3
; }9 t9 ^. z5 R Z End If
' v% N1 n' L% ~4 G, V' q& f( m
( I V: |) z1 F0 T$ d. I- XNext i
+ f2 s/ ^, \. r* |. G# G# ]$ r* H/ n! G, {Unload AutoColorForm |
|
发表于 2013-4-1 10:25:15
楼主
:):):):)