VB中自定义一个调色板

 

1. '
2. '图形颜色类'
4. Option Explicit
6. Dim Colors() As Variant
7. Dim ColorToUse As Long
9. '
10. '建立一个调色板.
11. '函数名: CreateColorPal
12. '入口参数: ColorPic As Object
13. '说明:ColorPic 欲设置成调色板的对象名
14. '作用: 将一个对象设置成一个调色板
15. Public Sub CreateColorPal(ColorPic As Object)
16.     Dim I As Long
17.     ColorPic.AutoRedraw = True
18.     ColorPic.Scale (0, 0)-(16, 3)
19.     Colors = Array(16777215, 14737632, 12632319, 12640511, _
20.                    14745599, 12648384, 16777152, 16761024, _
21.                    16761087, 192, 16576, 49344, _
22.                    49152, 12632064, 12582912, 12583104, _
23.                    12632256, 4210752, 8421631, 8438015, _
24.                    8454143, 8454016, 16777088, 16744576, _
25.                    16744703, 128, 16512, 32896, _
26.                    32768, 8421376, 8388608, 8388736, _
27.                    8421504, 0, 255, 33023, _
28.                    65535, 65280, 16776960, 16711680, _
29.