vb.net 2005 如何修改listbox滾動條的顏色

不行啊，除非重寫OPaint()方法，不過這個比較復雜，所有的繪圖過程都必須自己寫，工作量比較大，你 還是找一下有沒有現(xiàn)成的Com控件或者.net組件吧

我們提供的服務有：成都網(wǎng)站建設、網(wǎng)站設計、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認證、彌渡ssl等。為上1000家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務，是有科學管理、有技術的彌渡網(wǎng)站制作公司

VB.net如何更改窗體標題欄顏色？

這東西改不了，要想改的話要在系統(tǒng)顯示設置里修改主題。

不過如果想做的漂亮些，可以去網(wǎng)上找代碼把整個窗體改成藍色（隨便一種顏色）然后用代碼把窗體藍色部分扣去，可以PS一個窗體圖片，插到窗體上，這樣這個窗體藍色部分都被扣去了（圖片里的藍色無法扣去）只能看見一張圖片，可以在上面加控件。

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

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

加入一個TextBox控件,一個Command控件

代碼:

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) '獲取屏幕的設備場景

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

'分解RGB顏色值

R = (Color Mod 256) '紅色

b = (Int(Color \ 65536)) '藍色

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

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

End Sub

網(wǎng)站欄目：vb.net顏色條 VB顏色代碼
轉(zhuǎn)載源于：http://m.rwnh.cn/article20/hiehco.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導航、ChatGPT、手機網(wǎng)站建設、用戶體驗、商城網(wǎng)站、電子商務

廣告

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