VB中自定义一个调色板

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

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 
  1. '
  2. '图形颜色类'
  3. Option Explicit
  4. Dim Colors() As Variant
  5. Dim ColorToUse As Long
  6. '
  7. '建立一个调色板.
  8. '函数名: CreateColorPal
  9. '入口参数: ColorPic As Object
  10. '说明:ColorPic 欲设置成调色板的对象名
  11. '作用: 将一个对象设置成一个调色板
  12. Public Sub CreateColorPal(ColorPic As Object)
  13.     Dim I As Long
  14.     ColorPic.AutoRedraw = True
  15.     ColorPic.Scale (0, 0)-(16, 3)
  16.     Colors = Array(16777215, 14737632, 12632319, 12640511, _
  17.                    14745599, 12648384, 16777152, 16761024, _
  18.                    16761087, 192, 16576, 49344, _
  19.                    49152, 12632064, 12582912, 12583104, _
  20.                    12632256, 4210752, 8421631, 8438015, _
  21.                    8454143, 8454016, 16777088, 16744576, _
  22.                    16744703, 128, 16512, 32896, _
  23.                    32768, 8421376, 8388608, 8388736, _
  24.            
Rebuild started: Project: Project *** Using Compiler 'V6.22', folder: 'E:\Keil_v5\ARM\ARMCLANG\Bin' Rebuild target 'Target 1' assembling startup_stm32f10x_md.s... Start/core_cm3.c(445): error: non-ASM statement in naked function is not supported 445 | uint32_t result=0; | ^ Start/core_cm3.c(442): note: attribute is here 442 | uint32_t __get_PSP(void) __attribute__( ( naked ) ); | ^ Start/core_cm3.c(465): error: parameter references not allowed in naked functions 465 | "BX lr \n\t" : : "r" (topOfProcStack) ); | ^ Start/core_cm3.c(461): note: attribute is here 461 | void __set_PSP(uint32_t topOfProcStack) __attribute__( ( naked ) ); | ^ Start/core_cm3.c(479): error: non-ASM statement in naked function is not supported 479 | uint32_t result=0; | ^ Start/core_cm3.c(476): note: attribute is here 476 | uint32_t __get_MSP(void) __attribute__( ( naked ) ); | ^ Start/core_cm3.c(499): error: parameter references not allowed in naked functions 499 | "BX lr \n\t" : : "r" (topOfMainStack) ); | ^ Start/core_cm3.c(495): note: attribute is here 495 | void __set_MSP(uint32_t topOfMainStack) __attribute__( ( naked ) ); | ^ 4 errors generated. compiling core_cm3.c... compiling misc.c... compiling system_stm32f10x.c... compiling stm32f10x_adc.c... compiling stm32f10x_dac.c... compiling stm32f10x_exti.c... compiling stm32f10x_dbgmcu.c... compiling stm32f10x_dma.c... compiling stm32f10x_crc.c... compiling stm32f10x_cec.c... compiling stm32f10x_bkp.c... compiling stm32f10x_can.c... compiling stm32f10x_flash.c... compiling stm32f10x_pwr.c... compiling stm32f10x_fsmc.c... compiling stm32f10x_
03-31
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值