- '
- '图形颜色类'
- Option Explicit
- Dim Colors() As Variant
- Dim ColorToUse As Long
- '
- '建立一个调色板.
- '函数名: CreateColorPal
- '入口参数: ColorPic As Object
- '说明:ColorPic 欲设置成调色板的对象名
- '作用: 将一个对象设置成一个调色板
- Public Sub CreateColorPal(ColorPic As Object)
- Dim I As Long
- ColorPic.AutoRedraw = True
- ColorPic.Scale (0, 0)-(16, 3)
- Colors = Array(16777215, 14737632, 12632319, 12640511, _
- 14745599, 12648384, 16777152, 16761024, _
- 16761087, 192, 16576, 49344, _
- 49152, 12632064, 12582912, 12583104, _
- 12632256, 4210752, 8421631, 8438015, _
- 8454143, 8454016, 16777088, 16744576, _
- 16744703, 128, 16512, 32896, _
- 32768, 8421376, 8388608, 8388736, _
- 8421504, 0, 255, 33023, _
- 65535, 65280, 16776960, 16711680, _
VB中自定义一个调色板
最新推荐文章于 2024-07-21 21:59:22 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)