|
|
发表于 2013-4-3 16:31:17
|
显示全部楼层
来自： 中国北京
楼主代码够长的/ m7 H, K7 ^( x7 R- u
公布关键代码
/ u7 U v: D5 i" t0 W5 Z9 d* laaa = True( z0 K( k& K9 O# g; f
For i = 1 To UBound(fileFeatureName, 2)0 Y: ^8 [% ~+ _% u* k
MyHexColor = (Hex(LabelString(i).BackColor)): `! U' I; ~; n9 h, I
If Output.Takecolor(MyHexColor, Dec1, Dec2, Dec3) = True Then
4 x9 Z2 _2 Y" I- m: \' | fileFeatureName(1, i - 1) = Dec1
6 l5 g0 f+ }4 a; Z7 m/ ~ fileFeatureName(2, i - 1) = Dec2* ]/ r! C ]% g8 K
fileFeatureName(3, i - 1) = Dec3
3 H. v* _) c2 _, J D End If' c& N! g [7 K/ H9 u
3 P5 k: F- U) L0 H3 B: S" P1 rNext i
+ E, L; J" ]: Q g& s& ~, y" aUnload AutoColorForm |
|
发表于 2013-4-1 10:25:15
楼主
:):):):)