這是win7和xp的兼容性問題,要解決這個問題,點擊菜單“項目”--“windowsApplication1屬性”,取消“啟用XP視覺樣式”選項。看圖:
創(chuàng)新互聯(lián)服務項目包括港南網站建設、港南網站制作、港南網頁制作以及港南網絡營銷策劃等。多年來,我們專注于互聯(lián)網行業(yè),利用自身積累的技術優(yōu)勢、行業(yè)經驗、深度合作伙伴關系等,向廣大中小型企業(yè)、政府機構等提供互聯(lián)網行業(yè)的解決方案,港南網站推廣取得了明顯的社會效益與經濟效益。目前,我們服務的客戶以成都為中心已經輻射到港南省份的部分城市,未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任!
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顏色
在Private Sub DataGridView1_CellFormatting(.....)事件中加入代碼:
e.cellstyle.baclcolor=color.red
記得VB6當中有Shape控件,但是VB.net里這個控件不存在了。
提個思路:使用Picture控件或Label控件,通過代碼在控件里繪圖想要的圖形,可以試試。