|
|
发表于 2013-4-3 16:31:17
|
显示全部楼层
来自: 中国北京
楼主代码够长的
5 p; o e9 c T( T公布关键代码
( T) v4 j: Z2 e; H) O- jaaa = True
2 P* l* V# r' _. {For i = 1 To UBound(fileFeatureName, 2)
* P# [ Q! F" P8 c, i MyHexColor = (Hex(LabelString(i).BackColor)). x( n7 U* H6 _( y% h
If Output.Takecolor(MyHexColor, Dec1, Dec2, Dec3) = True Then
( _! x; [9 Y p- {' b fileFeatureName(1, i - 1) = Dec1
* X/ j6 x% J; s/ M C# Q5 C: ] fileFeatureName(2, i - 1) = Dec24 F; y3 q) g; A1 A* y' d8 b
fileFeatureName(3, i - 1) = Dec3
B: e/ y: O8 d; T, C* O% P8 ?! w End If
- m2 n, C8 P: N0 K( `( @' q; H) U( \) O' _+ w$ S
Next i$ D% e* i1 q }! f- Z
Unload AutoColorForm |
|