怎么在VB中做一个调色板？

来源：百度知道 编辑：UC知道 时间：2024/05/05 17:46:59
想在vb中做一个调色板 具体改怎么做？
请教高手
有没有具体点的？

Private Sub changecolor()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll1_Change()
Label1.Caption = "红色值：" & HScroll1.Value
changecolor
End Sub
Private Sub HScroll2_Change()
Label2.Caption = "绿色值：" & HScroll2.Value
changecolor
End Sub
Private Sub HScroll3_Change()
Label3.Caption = "蓝色值：" & HScroll3.Value
changecolor
End Sub

菜单：工程-部件，钩选"Microsoft Common Dialog Control 6.0"

写代码
me.CommonDialog1.ShowColor

其他的，参照CommonDialog的用法。

VB中的common dialog 控件中有个调色板的工具,你可以试试