你沒有寫刷新功能嘛,如LblResult.BackColor = Color.LightCoral后面再加一句LblResult.refresh()就實(shí)現(xiàn)了背景色變換!

創(chuàng)新互聯(lián)專注于貴陽網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠為您提供貴陽營銷型網(wǎng)站建設(shè),貴陽網(wǎng)站制作、貴陽網(wǎng)頁設(shè)計(jì)、貴陽網(wǎng)站官網(wǎng)定制、重慶小程序開發(fā)服務(wù),打造貴陽網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供貴陽網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。
這東西改不了,要想改的話要在系統(tǒng)顯示設(shè)置里修改主題。
不過如果想做的漂亮些,可以去網(wǎng)上找代碼把整個(gè)窗體改成藍(lán)色(隨便一種顏色)然后用代碼把窗體藍(lán)色部分扣去,可以PS一個(gè)窗體圖片,插到窗體上,這樣這個(gè)窗體藍(lán)色部分都被扣去了(圖片里的藍(lán)色無法扣去)只能看見一張圖片,可以在上面加控件。
也容易,如果是黑白三個(gè)顏色加上相同的漸變量,彩色的是起始顏色的三個(gè)分量與終止顏色的對應(yīng)三個(gè)分量的差值,再除于相同的份數(shù),就得出三原色各自的步進(jìn)量。
窗體上放個(gè)圖片框試試下面代碼:
Private?Sub?PictureBox1_Paint(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.PaintEventArgs)?Handles?PictureBox1.Paint
Dim?startColor?As?Color?=?Color.Red
Dim?endColor?As?Color?=?Color.Green
Dim?s?As?String?=?"vb點(diǎn)虐 ?如何使文字能漸變顏色,就是顏色慢慢變淡然后在慢慢恢復(fù)?"
Dim?Steps?As?Integer?=?s.Length?\?2
Dim?StepR?As?Integer?=?(CInt(endColor.R)?-?startColor.R)?\?Steps
Dim?StepG?As?Integer?=?(CInt(endColor.G)?-?startColor.G)?\?Steps
Dim?StepB?As?Integer?=?(CInt(endColor.B)?-?startColor.B)?\?Steps
Dim?R?As?Integer?=?startColor.R
Dim?G?As?Integer?=?startColor.G
Dim?B?As?Integer?=?startColor.B
Dim?drawFont?As?New?System.Drawing.Font("Arial",?16)
Dim?X?As?Integer?=?50
For?i?As?Integer?=?1?To?Steps
Dim?drawBrush?As?New?SolidBrush(Color.FromArgb(R,?G,?B))
e.Graphics.DrawString(s.Substring(i?-?1,?1),?drawFont,?drawBrush,?X,?50.0)
X?+=?18
R?+=?StepR
G?+=?StepG
B?+=?StepB
Next
For?i?As?Integer?=?1?To?Steps
Dim?drawBrush?As?New?SolidBrush(Color.FromArgb(R,?G,?B))
e.Graphics.DrawString(s.Substring(i?+?Steps?-?1,?1),?drawFont,?drawBrush,?X,?50.0)
X?+=?18
R?-=?StepR
G?-=?StepG
B?-=?StepB
Next
End Sub
不用代碼畫線,你用LINE 對象吧
就是形狀中的直線
就可以隨時(shí)修改顏色了
文章標(biāo)題:vb點(diǎn)虐
+顏色變化 vb中顏色的表示方法
本文URL:http://www.yijiale78.com/article4/ddgceoe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供微信公眾號、服務(wù)器托管、外貿(mào)網(wǎng)站建設(shè)、營銷型網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)、用戶體驗(yàn)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)