vb里。怎么做调色板的程序啊

dim clor

ActiveWorkbookColors(1) = oldcolor

If ApplicationDialogs(xlDialogEditColor)Show(1) = True Then

clor = ActiveWorkbookColors(1)

End If

ActiveWorkbookColors(1) = oldcolor

这个程序可以调用调色板，其中的ActiveWorkbookColors(1)就是取到的当前颜色值

HScroll1_Change

(Index)

意思是当你的

Scroll

事件发生后，就去执行

HScroll1_Change

里面编写的代码

你的程序里面有这么一句

Private

Sub

HScroll1_Change(Index

As

Integer)

而

"HScroll1_Change

(Index)

"

这条命令就是让电脑执行

"Private

Sub

HScroll1_Change(Index

As

Integer)"这句话后面的代码

也就是把

Shape1

的填充色设成你想要的颜色,也就是下面这几句

-------------------

Dim

red

As

Integer,

green

As

Integer,

blue

As

Integer

red

=

HScroll1(0)Value

green

=

HScroll1(1)Value

blue

=

HScroll1(2)Value

Shape1FillColor

=

RGB(red,

green,

blue)

-------------------

其实用

Scroll

事件就可以实现了，不需要

Change

事件：

程序可以写成

Private

Sub

HScroll1_Scroll(Index

As

Integer)

Dim

red

As

Integer,

green

As

Integer,

blue

As

Integer

red

=

HScroll1(0)Value

green

=

HScroll1(1)Value

blue

=

HScroll1(2)Value

Shape1FillColor

=

RGB(red,

green,

blue)

End

Sub

COLORREF clr;

CColorDialog dlg;

if(dlgdomodal==IDOK)

clr=ccdGetColor();

这样是调用调色板的一种方法，本质上就是调用vc自带的资源CColorDialog类似的还有CFontDialog等

TextBox4Text = "数值:" & TrackBar3Value & "比重:" & TrackBar3Value / (TrackBar1Value + TrackBar2Value + TrackBar3Value)

只是改变TextBox4，而没有改变TrackBar4啊！

以上就是关于vb里。怎么做调色板的程序啊全部的内容，包括:vb里。怎么做调色板的程序啊、VB中一个关于调色板的问题、用mfc如何实现 windows画图程序中的颜色板呢（调色板）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！