|
|
发表于 2013-4-3 16:31:17
|
显示全部楼层
来自： 中国北京
楼主代码够长的
, Y6 F+ e: o, z8 X3 L/ q公布关键代码2 a2 I; L" L; B2 j2 x# X
aaa = True
" E+ B* o& ], x) _; z7 _For i = 1 To UBound(fileFeatureName, 2)& [4 }: u7 m( s: P8 i
MyHexColor = (Hex(LabelString(i).BackColor))
" W7 }7 s% ~8 k3 k) ^6 S If Output.Takecolor(MyHexColor, Dec1, Dec2, Dec3) = True Then/ @: i! h/ f g* k5 I
fileFeatureName(1, i - 1) = Dec1
/ J# Q! L2 Y) l/ }% F4 r' J6 Y& r fileFeatureName(2, i - 1) = Dec2" y1 p$ i# ~# a: A0 r5 x) E
fileFeatureName(3, i - 1) = Dec34 A8 e* Q2 ^; T
End If0 A8 H8 e/ z) {$ s; X( z7 J
: t! v6 c8 h$ b0 e6 y) DNext i9 \: Z* g& T. r
Unload AutoColorForm |
|
发表于 2013-4-1 10:25:15
楼主
:):):):)