最近2018中文字幕在日韩欧美国产成人片_国产日韩精品一区二区在线_在线观看成年美女黄网色视频_国产精品一区三区五区_国产精彩刺激乱对白_看黄色黄大色黄片免费_人人超碰自拍cao_国产高清av在线_亚洲精品电影av_日韩美女尤物视频网站

用VB.net編寫一個調(diào)色板

'vb.net自帶ColorDialog

創(chuàng)新互聯(lián)建站是一家專注網(wǎng)站建設(shè)、網(wǎng)絡(luò)營銷策劃、小程序設(shè)計、電子商務(wù)建設(shè)、網(wǎng)絡(luò)推廣、移動互聯(lián)開發(fā)、研究、服務(wù)為一體的技術(shù)型公司。公司成立10余年以來，已經(jīng)為1000+成都小攪拌車各業(yè)的企業(yè)公司提供互聯(lián)網(wǎng)服務(wù)。現(xiàn)在，服務(wù)的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怎么編寫調(diào)色板

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

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

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

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

Point 方法

按照長整數(shù)，返回在 Form 或 PictureBox 上所指定磅的紅-綠-藍(lán) (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

名稱欄目：vb.net調(diào)色板,用vb做一個調(diào)色板程序
文章起源：http://fisionsoft.com.cn/article/hdsjse.html