vb.net圖像調(diào)色板 vb調(diào)色板程序
vb里。怎么做調(diào)色板的程序啊
你可以畫(huà)一個(gè)picturebox
10年積累的成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問(wèn)題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程，更有駐馬店免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
然后再上面加一個(gè)label改變形狀為正方形，邊框類型，然后復(fù)制一個(gè)，變成數(shù)組，然后在打開(kāi)顏色面板的代碼里寫(xiě)上，load
label(i)
label(i)的top
和left值及l(fā)abel(i)的backcolor=rgb(0-255,0-255,0-255)下面的combox的顏色就在label的click事件里寫(xiě)=label(i).backcolor
在VB中怎么寫(xiě)調(diào)色板程序設(shè)計(jì)？
PrivateSubForm_Load()
HScroll1.Max=255'設(shè)置HScroll1的最大值不能超過(guò)255，因?yàn)槿膯蝹€(gè)色素最大值為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編寫(xiě)一個(gè)調(diào)色板
'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調(diào)色板的代碼
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怎么編寫(xiě)調(diào)色板
以前寫(xiě)過(guò)一個(gè)? ? ?留個(gè)郵箱我發(fā)給你看看吧? ? 有不懂的追問(wèn)
這是在外部用的? ?如果你想直接在程序中像.net自帶的ColorPicker那樣的可以把這個(gè)稍微改一下就行（加個(gè)確認(rèn)，取消按鈕）? ? 像這樣：
網(wǎng)頁(yè)名稱：vb.net圖像調(diào)色板 vb調(diào)色板程序
鏈接地址：http://m.jiaotiyi.com/article/hggohj.html