應(yīng)改成
目前創(chuàng)新互聯(lián)已為超過千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、雅安服務(wù)器托管、網(wǎng)站托管、服務(wù)器托管、企業(yè)網(wǎng)站設(shè)計、山陽網(wǎng)站維護(hù)等服務(wù)，公司將堅持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。
Label4.ForeColor = Color.FromArgb(255, 255, 255, 255)
RGB函數(shù)是這樣的
Public Function RGB(Red As Integer, Green As Integer, Blue As Integer) As Integer
它返回一個Integer不是Color結(jié)構(gòu)
應(yīng)該用Color.FromArgb
Public Shared Function FromArgb(alpha As Integer, red As Integer, green As Integer, blue As Integer) As System.Drawing.Color
繪制線條采用Draw開頭的方法，顏色參數(shù)用Pen類；
繪制有填充色的封閉圖形采用Fill開頭的方法，顏色參數(shù)用Brush類；
例如：
'繪制一個實(shí)心圓，該圓在：直線x=200，y=200，x=200+100，y=200+100所劃矩形區(qū)域內(nèi)
Me.CreateGraphics.FillEllipse(New SolidBrush(Color.Orange), 200, 200, 100, 100)
'繪制一個空心圓，該圓在：直線x=200，y=200，x=200+100，y=200+100所劃矩形區(qū)域內(nèi)
Me.CreateGraphics.DrawEllipse(New Pen(Color.Black), 200, 200, 100, 100)
比較專業(yè)的做法是在項(xiàng)目中添加微軟的Application Settings類，詳細(xì)幫助文檔：
使用極其簡單，假設(shè)在settings1.settings設(shè)置一個項(xiàng)目，名稱：IP，類型：String，范圍：用戶，值：192.168.1.1
調(diào)用：Dim sIP As String = setting.IP
獲取缺省值：Dim sIP As String = Settings1.Default.IP
保存： setting.IP = "192.168.1.30" : setting.Save()
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顏色
在屬性里面-你找到FORM1的窗體屬性-那邊有2個有顏色的屬性值旁邊是有個顏色小框框的。你把它換了就可以了。
具體換什么顏色你自己看著來換。。
追問：
我的意思是用color.FormArgb()方法
回答：
vb6的vbWhite在VB.NET中是Color.White
vb6的H808080在VB.NET中是Color.FormArgb(H808080)
如果是System.UInt32
With txtHtml
.SetColor(CodeMax.cmColorItem.cmClrLeftMargin, H808080)
.SetColor(CodeMax.cmColorItem.cmClrLineNumberBk, H808080)
.SetColor(CodeMax.cmColorItem.cmClrLineNumber, i)
.HighlightedLine = 0
End With
這段時間在VB6中運(yùn)行正常,但是在VB.net中就會提示說"H808080"無法轉(zhuǎn)換為System.Uint32
Convert.ToUInt32(H808080)就行了，如果用VB2005就支持無符號數(shù)了，VB.NET暫時不支持。
補(bǔ)充：
函數(shù)RGB，格式:
RGB(red,green,blue)，red、green、blue取值0~255。
函數(shù)QBColor，格式：
QBColor(color)，color取值0~15，代表顏色編號，即只能表示16種顏色。
RGB 函數(shù)
返回一個 Long整數(shù)，用來表示一個 RGB 顏色值。
語法
RGB(red, green, blue)
RGB 函數(shù)的語法含有以下這些命名參數(shù)：
部分 描述
red 必要參數(shù)；Variant (Integer)。數(shù)值范圍從 0 到 255，表示顏色的紅色成份。
green 必要參數(shù)；Variant (Integer)。數(shù)值范圍從 0 到 255，表示顏色的綠色成份。
blue 必要參數(shù)；Variant (Integer)。數(shù)值范圍從 0 到 255，表示顏色的蘭色成份。
說明
可以接受顏色說明的應(yīng)用程序的方法和屬性期望這個說明是一個代表 RGB 顏色值的數(shù)值。一個 RGB 顏色值指定紅、綠、藍(lán)三原色的相對亮度，生成一個用于顯示的特定顏色。
傳給 RGB 的任何參數(shù)的值，如果超過 255，會被當(dāng)作 255。
下面的表格顯示一些常見的標(biāo)準(zhǔn)顏色，以及這些顏色的紅、綠、藍(lán)三原色的成份：
顏色 紅色值 綠色值 蘭色值 黑色 0 0 0 蘭色 0 0 255 綠色 0 255 0 青色 0 255 255 紅色 255 0 0 洋紅色 255 0 255 黃色 255 255 0 白色 255 255 255 QBColor 函數(shù) 返回一個 Long，用來表示所對應(yīng)顏色值的 RGB 顏色碼。
補(bǔ)充：
語法：
QBColor(color)
必要的 color 參數(shù)是一個界于 0 到 15 的整型。
設(shè)置值
color 參數(shù)有以下這些設(shè)置：
值 顏色 值 顏色 0 黑色 8 灰色
1 蘭色 9 亮蘭色 2 綠色 10 亮綠色 3 青色 11 亮青色 4 紅色 12 亮紅色 5 洋紅色 13 亮洋紅色 6 黃色 14 亮黃色 7 白色 15 亮白色 說明：color 參數(shù)代表使用于早期版本的 Basic（諸如 Microsoft Visual Basic for MS-DOS 以及 Basic Compiler）的顏色值。始于最低有效字節(jié)，返回值指定了紅、綠、藍(lán)三原色的值，用于設(shè)置成 VBA中RGB 系統(tǒng)的對應(yīng)顏色。
您好，這種方法可以通過按鈕的MouseDown和MouseUp事件來實(shí)現(xiàn)，比如說，當(dāng)單擊按鈕RedColor（RedColor為這個按鈕的Name屬性的屬性值）的時候，要使按鈕的顏色變成紅色，這可以在代碼視圖中的控件選擇下拉列表中選擇RedColor這個控件，然后在右邊的事件下拉列表中選擇MouseDown事件（當(dāng)按下鼠標(biāo)時發(fā)生），這時，Visual Studio會自動生成如下代碼：
Private Sub RedColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseDown
End Sub
接下來就在當(dāng)前生成的代碼中寫入如下代碼：
RedColor.BackColor = Color.FromArgb(255, 0, 0)
這句代碼的作用是利用Color下的FromArgb方法來設(shè)置RGB顏色參數(shù)，在RGB顏色系統(tǒng)中，R代表紅色，G代表綠色，B代表藍(lán)色，根據(jù)這三種顏色的不同程度的調(diào)和，就會得到不同的顏色，如果您要得到深色的天藍(lán)色，則可以設(shè)置FromArgb(0, 191, 255)，這個顏色轉(zhuǎn)換為HTML中的RGB顏色就是#00BFFF。
當(dāng)然顏色還原最好是寫在MouseUp事件里面，這樣就不必在單擊其他按鈕時來還原上一次按下的按鈕的顏色，在這里，為了方便描述，我們假設(shè)按鈕的默認(rèn)顏色為白色，也就是FromArgb方法設(shè)置為FromArgb(255, 255, 255)的時候，所標(biāo)示的顏色就是白色
所以選擇了RedColor按鈕的MouseUp事件后，Visual Studio會自動生成下列代碼：
Private Sub RedColor_MouseUp(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseUp
End Sub
MouseUp的含義是當(dāng)鼠標(biāo)彈起時發(fā)生，所以在這個事件就可以設(shè)置按鈕顏色的還原，即添加下列代碼來實(shí)現(xiàn)：
RedColor.BackColor = Color.FromArgb(255, 255, 255)
當(dāng)然，這就編寫好了一個按鈕按下時變色，回彈時還原的功能，至于另外一個按鈕的功能，這與這個按鈕的功能一樣，只是代碼有一些細(xì)微的差別而已，假設(shè)這個按鈕的Name屬性的屬性值為BlueColor，相應(yīng)的代碼對應(yīng)如下：
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown
BlueColor.BackColor = Color.FromArgb(0, 0, 255) '藍(lán)色的FromArgb
End Sub
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown
BlueColor.BackColor = Color.FromArgb(255, 255, 255)
End Sub
另外，為了避免代碼的冗余，可以將RedColor和BlueColor的MouseUp事件進(jìn)行合并，這合并后的代碼如下：
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown, RedColor.MouseUp
BlueColor.BackColor = Color.FromArgb(255, 255, 255)
RedColor.BackColor = Color.FromArgb(255, 255, 255)
End Sub
當(dāng)然，這個你只要分析了控件事件代碼的基本結(jié)構(gòu)，一切就一目了然了，控件事件代碼的基本結(jié)構(gòu)如下：
[作用域] Sub 事件名([參數(shù)列表]) Handles 控件事件1 [, 控件事件2, 控件事件3...]
[事件代碼區(qū)域]
End Sub
如果此回答對您有幫助，別忘了采納哦，如果沒有解決您的問題，您可以在互聯(lián)網(wǎng)上尋找更多關(guān)于此問題的解決方案，謝謝！
重慶分公司
重慶分公司
