用VB.net編寫一個調色板

'vb.net自帶ColorDialog

創(chuàng)新互聯(lián)建站是一家專注網(wǎng)站建設、網(wǎng)絡營銷策劃、小程序設計、電子商務建設、網(wǎng)絡推廣、移動互聯(lián)開發(fā)、研究、服務為一體的技術型公司。公司成立10余年以來，已經(jīng)為1000+成都小攪拌車各業(yè)的企業(yè)公司提供互聯(lián)網(wǎng)服務。現(xiàn)在，服務的1000+客戶與我們一路同行，見證我們的成長；未來，我們一起分享成功的喜悅。

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.net怎么編寫調色板

以前寫過一個? ? ?留個郵箱我發(fā)給你看看吧? ? 有不懂的追問

這是在外部用的? ?如果你想直接在程序中像.net自帶的ColorPicker那樣的可以把這個稍微改一下就行（加個確認，取消按鈕）? ? 像這樣：

vb.net拾色器設計，要求：能獲取圖片任意位置的顏色

VB可使用Point方法來獲取圖片指定點的顏色。

Point 方法

按照長整數(shù)，返回在 Form 或 PictureBox 上所指定磅的紅-綠-藍 (RGB) 顏色。

語法

object.Point(x, y)

'窗體判色代碼:

Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text1 = X

Text2 = Y

Text3 = Point(X, Y)

Text4 = (Val(Text3) Mod 65536) Mod 256 'Red

Text5 = (Val(Text3) Mod 65536) \ 256 'Green

Text6 = Val(Text3) \ 65536 'Blue

Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))

End Sub

'PictureBox判色代碼:

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text1 = X

Text2 = Y

Text3 = Picture1.Point(X, Y)

Text4 = (Val(Text3) Mod 65536) Mod 256 'Red

Text5 = (Val(Text3) Mod 65536) \ 256 'Green

Text6 = Val(Text3) \ 65536 'Blue

Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))

End Sub