VB中自定义一个调色板

最新推荐文章于 2023-10-30 18:47:46 发布

华芸智森

最新推荐文章于 2023-10-30 18:47:46 发布

阅读量2.6k

点赞数

文章标签： vb colors 图形 c

本文链接：https://blog.csdn.net/MSTOP/article/details/3053376

版权

这是一个关于在VB中创建和使用自定义调色板的代码示例。通过`CreateColorPal`函数可以将一个对象设置为调色板，`GetPicColor`函数用于从调色板中获取指定位置的颜色值。此外，还包含设置按钮颜色和图片复制的功能。

摘要由CSDN通过智能技术生成

 
 ' 
'图形颜色类' 
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, _
            