vb.net图像调色板 vb调色板程序

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

你可以画一个picturebox

10年积累的成都网站设计、成都网站制作经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有驻马店免费网站建设让你可以放心的选择与我们合作。

然后再上面加一个label改变形状为正方形，边框类型，然后复制一个，变成数组，然后在打开颜色面板的代码里写上，load

label(i)

label(i)的top

和left值及label(i)的backcolor=rgb(0-255,0-255,0-255)下面的combox的颜色就在label的click事件里写=label(i).backcolor

在VB中怎么写调色板程序设计？

PrivateSubForm_Load()

HScroll1.Max=255'设置HScroll1的最大值不能超过255，因为三原色的单个色素最大值为255

HScroll2.Max=255

HScroll3.Max=255

Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)'初始化

EndSubPrivateSubHScroll1_Change()

Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)

EndSubPrivateSubHScroll2_Change()

Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)

EndSubPrivateSubHScroll3_Change()

Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)

EndSubPrivateSubCommand1_Click()

Label5.ForeColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)

EndSub

用VB.net编写一个调色板

'vb.net自带ColorDialog

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

ColorDialog1.ShowDialog()

TextBox2.BackColor = ColorDialog1.Color

End Sub

VB调色板的代码

Dim r%, g%, b%

Private Sub Form_Load()

HScroll1.Min = 0

HScroll1.Max = 255

HScroll2.Min = 0

HScroll2.Max = 255

HScroll3.Min = 0

HScroll3.Max = 255

HScroll1.LargeChange = 50

HScroll2.LargeChange = 50

HScroll3.LargeChange = 50

HScroll4.Min = 9

HScroll4.Max = 30

HScroll4.LargeChange = 5

End Sub

Private Sub HScroll1_Change()

r = HScroll1.Value

If Option1 Then

Text1.ForeColor = RGB(r, g, b)

ElseIf Option2 Then

Text1.BackColor = RGB(r, g, b)

Else

End If

End Sub

Private Sub HScroll2_Change()

g = HScroll2.Value

If Option1 Then

Text1.ForeColor = RGB(r, g, b)

ElseIf Option2 Then

Text1.BackColor = RGB(r, g, b)

Else

End If

End Sub

Private Sub HScroll3_Change()

b = HScroll3.Value

If Option1 Then

Text1.ForeColor = RGB(r, g, b)

ElseIf Option2 Then

Text1.BackColor = RGB(r, g, b)

Else

End If

End Sub

Private Sub HScroll4_Change()

Text1.FontSize = HScroll4.Value

End Sub

vb.net怎么编写调色板

以前写过一个     留个邮箱我发给你看看吧    有不懂的追问

这是在外部用的   如果你想直接在程序中像.net自带的ColorPicker那样的可以把这个稍微改一下就行（加个确认，取消按钮）    像这样：