用vb自帶的commondialog即可,代碼如下:

創(chuàng)新互聯(lián)公司從2013年創(chuàng)立,先為重慶等服務(wù)建站,重慶等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為重慶企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo errtrap
CommonDialog1.ShowColor
x = CommonDialog1.Color
Me.BackColor = x
errtrap:
End Sub
你可以先去【繪學(xué)霸】網(wǎng)站找“漫畫設(shè)計(jì)”板塊的【免費(fèi)】視頻教程【點(diǎn)擊進(jìn)入】完整入門到精通視頻教程列表: ;tagid=304zdhhr-11y17r-527459938
想要系統(tǒng)的學(xué)習(xí)可以考慮報(bào)一個(gè)網(wǎng)絡(luò)直播課,推薦CGWANG的網(wǎng)絡(luò)課。老師講得細(xì),上完還可以回看,還有同類型錄播課可以免費(fèi)學(xué)(贈(zèng)送終身VIP)。
自制能力相對(duì)較弱的話,建議還是去好點(diǎn)的培訓(xùn)機(jī)構(gòu),實(shí)力和規(guī)模在國內(nèi)排名前幾的大機(jī)構(gòu),推薦行業(yè)龍頭:王氏教育。
王氏教育全國直營校區(qū)面授課程試聽【復(fù)制后面鏈接在瀏覽器也可打開】:
在“漫畫設(shè)計(jì)”領(lǐng)域的培訓(xùn)機(jī)構(gòu)里,【王氏教育】是國內(nèi)的老大,且沒有加盟分校,都是總部直營的連鎖校區(qū)。跟很多其它同類型大機(jī)構(gòu)不一樣的是:王氏教育每個(gè)校區(qū)都是實(shí)體面授,老師是手把手教,而且有專門的班主任從早盯到晚,爆肝式的學(xué)習(xí)模式,提升會(huì)很快,特別適合基礎(chǔ)差的學(xué)生。
大家可以先把【繪學(xué)霸】APP下載到自己手機(jī),方便碎片時(shí)間學(xué)習(xí)——繪學(xué)霸APP下載:
Public?Class?Form1
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
IO.Directory.SetCurrentDirectory(AppDomain.CurrentDomain.BaseDirectory)
picMain.SizeMode?=?PictureBoxSizeMode.StretchImage
picMain.Image?=?New?Bitmap("test.jpg")
End?Sub
Private?Sub?picMain_MouseDown(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.MouseEventArgs)?Handles?picMain.MouseDown
Dim?myImg?As?New?Bitmap(picMain.Width,?picMain.Height)
Dim?g?As?Graphics?=?Graphics.FromImage(myImg)
g.DrawImage(picMain.Image,?New?Rectangle(New?Point(0,?0),?myImg.Size),?New?Rectangle(New?Point(0,?0),?picMain.Image.Size),?GraphicsUnit.Pixel)
picColor.BackColor?=?myImg.GetPixel(e.X,?e.Y)
txtMsg.Text?=?picColor.BackColor.ToString
End?Sub
End?Class
VB可使用Point方法來獲取圖片指定點(diǎn)的顏色。
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做拾色器的詞條
網(wǎng)頁地址:http://chinadenli.net/article31/dsiddpd.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供做網(wǎng)站、關(guān)鍵詞優(yōu)化、網(wǎng)站改版、網(wǎng)站導(dǎo)航、虛擬主機(jī)、外貿(mào)建站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)