如何用VB制作拾色器

用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

用Wacom CTL-470在sai上畫，壓感筆接觸板子時(shí)會(huì)變成拾色器原本顏色就變成筆接觸那的顏色，請(qǐng)問要怎么辦？

你可以先去【繪學(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下載：

求助！！vb制作一個(gè)拾色器

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.net拾色器設(shè)計(jì)，要求：能獲取圖片任意位置的顏色

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)