在Private Sub DataGridView1_CellFormatting(.....)事件中加入代碼:
10年積累的成都網(wǎng)站制作、做網(wǎng)站、外貿(mào)營銷網(wǎng)站建設(shè)經(jīng)驗,可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識你,你也不認(rèn)識我。但先網(wǎng)站制作后付款的網(wǎng)站建設(shè)流程,更有東城免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
e.cellstyle.baclcolor=color.red
您好,這種方法可以通過按鈕的MouseDown和MouseUp事件來實現(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è)置按鈕顏色的還原,即添加下列代碼來實現(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)于此問題的解決方案,謝謝!
vb中的顏色
VB中 H80000000(16進(jìn)制8位,8開頭) 這種 方式表示的顏色代表系統(tǒng)默認(rèn)的各項設(shè)置的顏色
比如按鈕,窗體
其他的就是 RGB顏色值
RGB 顏色值的范圍就是 H0-HFFFFFF
HBBGGRR BB 是藍(lán)色,GG是綠色,RR是紅色 范圍都是 0-255
從顏色中分離 紅綠藍(lán)
r = (color And HFF)
g = (color And HFF00) \ 256
b = (color And HFF0000) \ 65536
將紅綠藍(lán)合為一種顏色
color = b * H10000 + g * H100 + r
控件名.ForeColor = vbRed
如果要改為其他顏色的話,直接把“red”改為其他顏色所對應(yīng)的英文,如要改為藍(lán)色,則為“vbBlue”
任何顏色都是由三原色按比例組成的即Red,Green,Blue.用0~255之間的整數(shù)表示每種顏色的分量,取第一個字母則表示為:RGB(255,255,0).
公式:混合顏色值=RGB(紅色值,綠色值,藍(lán)色值)
例如:RGB(255,255,0)為黃色
RGB(255,0,0)為紅色
RGB(0,255,0)為綠色
RGB(0,0,0)為黑色
RGB(255,255,255)為白色
RGB(255, 0, 0) '紅色
RGB(0, 255, 0) '綠色
RGB(0, 0, 255) '藍(lán)色
RGB(255, 255, 0) '黃色
RGB(255, 0, 255) '紫紅色
RGB(0, 255, 255) '天藍(lán)色
RGB(255, 255, 255) '白色
RGB(0, 0, 0) '黑色
數(shù)值可以在0到255之間變化,通過不同數(shù)值的組合就能得到16M(即1600多萬)種顏色。
此外還可以使用常量:
vbRed '紅色
vbGreen '綠色
vbBlue '藍(lán)色
vbYellow '黃色
vbWhite '白色
vbBlack '黑色
等等
或者使用16進(jìn)制值:
HFF '紅色
HFF00 '綠色
HFF0000 '藍(lán)色
HFFFF '黃色
HFF00FF '紫紅色
HFFFF00 '天藍(lán)色
HFFFFFF '白色
H0 '黑色