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那样的可以把这个稍微改一下就行(加个确认,取消按钮) 像这样:
当前名称:vb.net图像调色板 vb调色板程序
网站URL:http://scyanting.com/article/hggohj.html