文件名称：VB 调色板应用程序.rar
文件大小：2KB
文件格式：RAR
更新时间：2022-07-30 05:13:31
VB源码-图形处理
VB 编写一个调色板应用程序，用滑块滑动来调色，每一个RGB基色都有一个滑块来控制，拖动滑块可改变基色值，从而改变合成后的颜色值。三基色合成值在下边的框中会显示出来，你可复制这些颜色值到用到的地方，实现调色功能。部分代码： Static r As Integer, g As Integer, b As Integer '声明三个静态变量 h0 = HScroll1(0).Value '返回滑块当前位置的值 h1 = HScroll1(1).Value '将返回值分别放到三个变量里暂存 h2 = HScroll1(2).Value Select Case index Case 0 Label1.BackColor = RGB(h0, 0, 0) '当前所取红色分量值作为标签的背景 Text1.BackColor = RGB(h0, h1, h2) '三种颜色的合成色 r = LTrim(Str(h0)) Case 1 Label2.BackColor = RGB(0, h1, 0) '绿色分量值 Text1.BackColor = RGB(h0, h1, h2) g = LTrim(Str(h1)) …… 更多代码请下载本示例，运行效果请参见下图。
【文件预览】：
srcfans.com
----调色板()
--------MSSCCPRJ.SCC(331B)
--------E067.vbw(50B)
--------E067.vbp(662B)
--------Form1.frm(5KB)