system.drawing.color為引用系統(tǒng)的顏色.如果你的電腦VB安裝了幫助,你可以在幫助里找找看.VB與VB.NET不是完全相同,有些本質(zhì)相同但代碼卻要換一下的.
成都創(chuàng)新互聯(lián)公司堅持“要么做到,要么別承諾”的工作理念,服務(wù)領(lǐng)域包括:網(wǎng)站建設(shè)、網(wǎng)站設(shè)計、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務(wù),滿足客戶于互聯(lián)網(wǎng)時代的雙橋網(wǎng)站設(shè)計、移動媒體設(shè)計的需求,幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴!
基于具有 能處理 256色或 256色以上的視頻適配器和顯示驅(qū)動程序的系統(tǒng), vb 可支持 256 種顏色。VB 中的顏色設(shè)置 界面上的彩色圖形能夠產(chǎn)生更強的視覺效果,因而越來越受到用戶的重視。 在 Visual Basic 中,窗體、控件、圖形以及文字信息都可以用不同的顏色顯示。 對于所有的顏色屬性和圖形方法,每種顏色都由一個 Long 整數(shù)表示。對于多媒體應(yīng)用程序, 或?qū)τ谀切┬枰@示接近相片質(zhì)量圖 像的應(yīng)用程序來說,具有同時顯示 256 色的功能是特別有價值的。 第一種: 打開畫圖板,顏色里面調(diào)出你要的顏色以后,記下紅綠藍的數(shù)值 然后vb中用xxx.forecolor(或者backcolor之類)=rgb(紅,綠,藍) 這種辦法好處就是很簡單 不好之處就是不能在設(shè)計的時候更改 第二種: 打開畫圖板,調(diào)好顏色以后 記下紅綠藍 打開計算器 分別翻譯成16進制 然后vb中用xxx.forecolor = H藍綠紅 例如藍色255 16進制就是FF 紅色0 16進制是0 綠色128 16進制是80 然后顏色就是HFF8000 (0要補齊) 第三種: 打開專業(yè)的制圖軟件(photoshop/fireworks) 直接獲取16進制顏色 比如說#AABBCC 然后對應(yīng)的VB種顏色就是HCCBBAA
這是MSDN關(guān)于顏色對話框中AnyColor屬性的說明:
你覺得效果一樣,是因為你的桌面顏色達到真彩色或16位色,如果你的系統(tǒng)顏色只有258色甚至更少,效果就明顯不同了! 當(dāng)系統(tǒng)顏色只有256色時,要顯示更豐富的色彩,其它的顏色就需要系統(tǒng)利用相鄰的像素用幾種顏色“拼”出無法顯示的色彩,當(dāng)然無論如何,看上去總會有些失真。
這篇文章介紹了VB.NET設(shè)置屏幕分辨率、顏色位數(shù)、刷新率
實例代碼,有需要的朋友可以參考一下
復(fù)制代碼
代碼如下:
Private
Declare
Function
GetDeviceCaps
Lib
"gdi32"
(ByVal
hdc
As
Long,
ByVal
nIndex
As
Long)
As
Long
Private
Declare
Function
ChangeDisplaySettings
Lib
"user32"
Alias
"ChangeDisplaySettingsA"
(lpDevMode
As
Any,
ByVal
dwflags
As
Long)
As
Long
Private
Const
CCDEVICENAME
As
Long
=
32
Private
Const
CCFORMNAME
As
Long
=
32
Private
Const
DM_BITSPERPEL
As
Long
=
H40000
Private
Const
DM_PELSWIDTH
As
Long
=
H80000
Private
Const
DM_PELSHEIGHT
As
Long
=
H100000
Private
Const
DM_DISPLAYFLAGS
As
Long
=
H200000
Private
Const
DM_DISPLAYFREQUENCY
=
H400000
Private
Const
CDS_FORCE
As
Long
=
H80000000
Private
Const
BITSPIXEL
As
Long
=
12
Private
Const
HORZRES
As
Long
=
8
Private
Const
VERTRES
As
Long
=
10
Private
Const
VREFRESH
=
116
Private
Type
DEVMODE
dmDeviceName
As
String
*
CCDEVICENAME
dmSpecVersion
As
Integer
dmDriverVersion
As
Integer
dmSize
As
Integer
dmDriverExtra
As
Integer
dmFields
As
Long
dmOrientation
As
Integer
dmPaperSize
As
Integer
dmPaperLength
As
Integer
dmPaperWidth
As
Integer
dmScale
As
Integer
dmCopies
As
Integer
dmDefaultSource
As
Integer
dmPrintQuality
As
Integer
dmColor
As
Integer
dmDuplex
As
Integer
dmYResolution
As
Integer
dmTTOption
As
Integer
dmCollate
As
Integer
dmFormName
As
String
*
CCFORMNAME
dmUnusedPadding
As
Integer
dmBitsPerPel
As
Integer
dmPelsWidth
As
Long
dmPelsHeight
As
Long
dmDisplayFlags
As
Long
dmDisplayFrequency
As
Long
End
Type
Private
Sub
cmdChangeDesktopMode_Click()
Dim
DM
As
DEVMODE
With
DM
.dmPelsWidth
=
CInt(txtNewWidth.Text)
.dmPelsHeight
=
CInt(txtNewHeight.Text)
.dmBitsPerPel
=
CInt(txtNewColor.Text)
.dmDisplayFrequency
=
CInt(txtNewFreq.Text)
.dmFields
=
DM_PELSWIDTH
Or
DM_PELSHEIGHT
Or
DM_BITSPERPEL
Or
DM_DISPLAYFREQUENCY
.dmSize
=
LenB(DM)
End
With
If
ChangeDisplaySettings(DM,
CDS_FORCE)
Then
MsgBox
"錯誤!不支持此模式!"
End
If
End
Sub
Private
Sub
Form_Load()
txtOldWidth.Text
=
GetDeviceCaps(Me.hdc,
HORZRES)
txtOldHeight.Text
=
GetDeviceCaps(Me.hdc,
VERTRES)
txtOldColor.Text
=
GetDeviceCaps(Me.hdc,
BITSPIXEL)
txtOldFreq.Text
=
GetDeviceCaps(Me.hdc,
VREFRESH)
End
Sub
這東西改不了,要想改的話要在系統(tǒng)顯示設(shè)置里修改主題。
不過如果想做的漂亮些,可以去網(wǎng)上找代碼把整個窗體改成藍色(隨便一種顏色)然后用代碼把窗體藍色部分扣去,可以PS一個窗體圖片,插到窗體上,這樣這個窗體藍色部分都被扣去了(圖片里的藍色無法扣去)只能看見一張圖片,可以在上面加控件。
你好,我不知道你是用什么方法保存的,不過.net里的color有一個方法是Color.FromArgb 你可以這么做,dim
c
as
color=richtextbox1.ForeColor dim
colorstring
as
string=c.ToArgb().ToString
colorstring就是顏色的值(字符串)再把colorstring保存到ini文件加載顏色的時候,從ini里讀取colorstring 具體是:dim
RtextColor
as
color=Color.FromArgb(cint(colorstring))richtextbox1.ForeColor
=RtextColor
標(biāo)題名稱:vb.net系統(tǒng)顏色,vbs顏色代碼
網(wǎng)頁URL:http://aaarwkj.com/article28/dssjdcp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站營銷、用戶體驗、品牌網(wǎng)站制作、網(wǎng)站導(dǎo)航、網(wǎng)站改版、外貿(mào)建站
聲明:本網(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)