vb.net獲取底色的簡(jiǎn)單介紹

VB.NET：繪圖后，如何才能取得所繪圖形的顏色值？

加入一個(gè)TextBox控件,一個(gè)Command控件

目前創(chuàng)新互聯(lián)已為1000多家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬空間、成都網(wǎng)站托管、企業(yè)網(wǎng)站設(shè)計(jì)、和龍網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

代碼:

Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long

Private Sub Command1_Click()

Dim Color As Long

WindowDC = GetWindowDC(0) '獲取屏幕的設(shè)備場(chǎng)景

Color = GetPixel(WindowDC, 500, 100) '獲指定點(diǎn)的顏色

'分解RGB顏色值

R = (Color Mod 256) '紅色

b = (Int(Color \ 65536)) '藍(lán)色

G = ((Color - (b * 65536) - R) \ 256) '綠色

Text1.BackColor = RGB(R, G, b)

End Sub

VBNET怎么獲取控件顏色的RGB值，又怎么用RGB將顏色賦給控件顏色。

R/G/B值最小是0最大是255屬Byte值類型

Dim cr As Color = 控件.BackColor '獲取控件背景色

Dim alpha As Byte = cr.A '透明度

Dim R As Byte = cr.R 'R值

Dim G As Byte = cr.G 'G值

Dim B As Byte = cr.B 'B值

Dim outAcr As Color = Color.FromArgb(alpha, R, G, B) '創(chuàng)建帶有透明通道的ARGB顏色

Dim outcr As Color = Color.FromArgb(R, G, B) '創(chuàng)建不透明的RGB顏色

在VB.net中怎樣實(shí)現(xiàn)控件具有透明背景

將控件的背景色設(shè)為透明即可： 如Label1.BackColor=Color.Transparent 當(dāng)然，還有別的方式可使底色透明，你自已琢磨一下。

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

VB可使用Point方法來(lái)獲取圖片指定點(diǎn)的顏色。

Point 方法

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

語(yǔ)法

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

網(wǎng)站名稱：vb.net獲取底色的簡(jiǎn)單介紹
本文來(lái)源：http://muchs.cn/article42/docdpec.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機(jī)網(wǎng)站建設(shè)、網(wǎng)站策劃、Google、品牌網(wǎng)站建設(shè)、網(wǎng)站制作、網(wǎng)站營(yíng)銷

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)