這東西改不了,要想改的話要在系統(tǒng)顯示設(shè)置里修改主題。
惠濟網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián)建站,惠濟網(wǎng)站設(shè)計制作,有大型網(wǎng)站制作公司豐富經(jīng)驗。已為惠濟上千提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站制作要多少錢,請找那個售后服務(wù)好的惠濟做網(wǎng)站的公司定做!
不過如果想做的漂亮些,可以去網(wǎng)上找代碼把整個窗體改成藍色(隨便一種顏色)然后用代碼把窗體藍色部分扣去,可以PS一個窗體圖片,插到窗體上,這樣這個窗體藍色部分都被扣去了(圖片里的藍色無法扣去)只能看見一張圖片,可以在上面加控件。
繪制線條采用Draw開頭的方法,顏色參數(shù)用Pen類;
繪制有填充色的封閉圖形采用Fill開頭的方法,顏色參數(shù)用Brush類;
例如:
'繪制一個實心圓,該圓在:直線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)
VB中窗體顏色可通過設(shè)置窗體的BackColor來改變。
BackColor、ForeColor 屬性
BackColor-返回或設(shè)置對象的背景顏色。ForeColor-返回或設(shè)置在對象里顯示圖片和文本的前景顏色。
以下代碼是改變窗體背景色和改變圖片框背景和前景色的代碼:
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Load()
Timer1.Interval = 500
Picture1.FontSize = 30
a href=";tn=44039180_cprfenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3nycYmyckuWRYmHDkrAfL0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHfYnHb3n1Dv" target="_blank" class="baidu-highlight"End/a Sub
Private Sub Timer1_Timer()
Picture1.Cls
BackColor = QBColor(Rnd * 15)
Picture1.BackColor = QBColor(Rnd * 15)
Picture1.ForeColor = QBColor(Rnd * 10)
Picture1.Print "ABC"
a href=";tn=44039180_cprfenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3nycYmyckuWRYmHDkrAfL0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHfYnHb3n1Dv" target="_blank" class="baidu-highlight"End/a Sub
您好,這種方法可以通過按鈕的MouseDown和MouseUp事件來實現(xiàn),比如說,當單擊按鈕RedColor(RedColor為這個按鈕的Name屬性的屬性值)的時候,要使按鈕的顏色變成紅色,這可以在代碼視圖中的控件選擇下拉列表中選擇RedColor這個控件,然后在右邊的事件下拉列表中選擇MouseDown事件(當按下鼠標時發(fā)生),這時,Visual Studio會自動生成如下代碼:
Private Sub RedColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseDown
End Sub
接下來就在當前生成的代碼中寫入如下代碼:
RedColor.BackColor = Color.FromArgb(255, 0, 0)
這句代碼的作用是利用Color下的FromArgb方法來設(shè)置RGB顏色參數(shù),在RGB顏色系統(tǒng)中,R代表紅色,G代表綠色,B代表藍色,根據(jù)這三種顏色的不同程度的調(diào)和,就會得到不同的顏色,如果您要得到深色的天藍色,則可以設(shè)置FromArgb(0, 191, 255),這個顏色轉(zhuǎn)換為HTML中的RGB顏色就是#00BFFF。
當然顏色還原最好是寫在MouseUp事件里面,這樣就不必在單擊其他按鈕時來還原上一次按下的按鈕的顏色,在這里,為了方便描述,我們假設(shè)按鈕的默認顏色為白色,也就是FromArgb方法設(shè)置為FromArgb(255, 255, 255)的時候,所標示的顏色就是白色
所以選擇了RedColor按鈕的MouseUp事件后,Visual Studio會自動生成下列代碼:
Private Sub RedColor_MouseUp(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseUp
End Sub
MouseUp的含義是當鼠標彈起時發(fā)生,所以在這個事件就可以設(shè)置按鈕顏色的還原,即添加下列代碼來實現(xiàn):
RedColor.BackColor = Color.FromArgb(255, 255, 255)
當然,這就編寫好了一個按鈕按下時變色,回彈時還原的功能,至于另外一個按鈕的功能,這與這個按鈕的功能一樣,只是代碼有一些細微的差別而已,假設(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) '藍色的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事件進行合并,這合并后的代碼如下:
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
當然,這個你只要分析了控件事件代碼的基本結(jié)構(gòu),一切就一目了然了,控件事件代碼的基本結(jié)構(gòu)如下:
[作用域] Sub 事件名([參數(shù)列表]) Handles 控件事件1 [, 控件事件2, 控件事件3...]
[事件代碼區(qū)域]
End Sub
如果此回答對您有幫助,別忘了采納哦,如果沒有解決您的問題,您可以在互聯(lián)網(wǎng)上尋找更多關(guān)于此問題的解決方案,謝謝!
首先command的style要設(shè)為1,否則無法改變
然后在backcolor設(shè)置顏色
按鈕的字體顏色不能改
如果想改字體顏色,簡單點可以用image做按鈕。
如果一定要,請看:
在工程中添加以下模塊(Module):
Module modExtButton.bas
Option Explicit
近來項目用到了一個類似WEB控件DataGrid中自定義行或列的顏色的功能 然而應(yīng)用卻是在WIN的窗體下 實現(xiàn)起來無法使用類似JavaScript的腳本注冊的功能來動態(tài)完成 十分著急 察看了CSDN的一些關(guān)于WinForm下的關(guān)于DataGrid的資料 看到這樣的一篇介紹DG結(jié)構(gòu)的美文 題目是《Henry手記:WinForm Datagrid結(jié)構(gòu)剖析》 作者是韓睿(Latitude) 其中介紹了WIN DG的顏色的定義 但是主要是針對每一個Cell的 ?? ??我們需要的則是標記某一行的數(shù)據(jù) 用顏色突出顯示 所以作了部分改動 現(xiàn)在把部分代碼張貼出來供大家參考 ?? ?? . 基礎(chǔ)類出自韓睿 ?? ??URL: ?id= ?? ?? Public Class DataGridColoredTextBoxColumn??? Inherits DataGridTextBoxColumn??? Public rowcollection As New Collection()??? Public BackColor() As Color??? Public ForeColor() As Color??? Private Function GetText(ByVal Value As Object) As String ?? ?? If TypeOf (Value) Is System DBNull Then ?? ?? Return NullText ?? ?? ElseIf Value Is Nothing Then ?? ?? Return ?? ?? Else ?? ?? Return Value ToString ?? ?? End If ?? ?? End Function??? Protected Overloads Overrides Sub Paint(ByVal g As System Drawing Graphics ByVal bounds As System Drawing Rectangle _ ?? ?? ByVal source As System Windows Forms CurrencyManager _ ?? ?? ByVal rowNum As Integer _ ?? ?? ByVal backBrush As System Drawing Brush _ ?? ?? ByVal foreBrush As System Drawing Brush _ ?? ?? ByVal alignToRight As Boolean)??? Dim text As String
text = GetText(GetColumnValueAtRow(source rowNum))??? backBrush = New SolidBrush(TextBox BackColor)??? foreBrush = New SolidBrush(TextBox ForeColor)
ReDim Preserve BackColor(rowcollection Count)??? ReDim Preserve ForeColor(rowcollection Count)??? Dim i As Integer = ??? Do While (i = rowcollection Count)??? If rowNum = Val(rowcollection Item(i)) Then
If Not BackColor(i ) IsEmpty Then??? backBrush = New SolidBrush(BackColor(i ))??? End If??? If Not ForeColor(i ) IsEmpty Then??? foreBrush = New SolidBrush(ForeColor(i ))??? End If??? End If?????? i += ??? Loop????? MyBase PaintText(g bounds text backBrush foreBrush alignToRight)?????? End Sub?????? End Class?????? 關(guān)于行顏色定義的類 ?? ??Imports System Windows Forms ?? ??Namespace Truck_WEB?????? Public Class DrawDGClass?????? Public Class ReDrawDataDridControls : Inherits DataGridColoredTextBoxColumn?????? Public Sub DrawCorol(ByRef DG As DataGrid Optional ByVal CurrentRowindex As Integer = ) ?? ?? 設(shè)置選中的行的顏色 默認是第一行選中 ?? ?? Dim dt As DataTable ?? ?? Dim ts As New DataGridTableStyle() ?? ?? ts AllowSorting = False ?? ?? Dim aColumnTextColumn As DataGridColoredTextBoxColumn ?? ?? dt = CType(DG DataSource DataTable) ?? ?? ts MappingName = CType(DG DataSource DataTable) TableName ?? ?? DG TableStyles Clear() ?? ?? Dim numCols As Integer ?? ?? numCols = dt Columns Count ?? ?? Dim i j As Integer ?? ?? i = ?? ?? j =
lishixinzhi/Article/program/net/201311/12321
分享標題:vb.net如何設(shè)定顏色 vb設(shè)置顏色
標題路徑:http://jinyejixie.com/article14/hpcpde.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供企業(yè)網(wǎng)站制作、網(wǎng)頁設(shè)計公司、ChatGPT、網(wǎng)站制作、網(wǎng)站設(shè)計公司、網(wǎng)站建設(shè)
聲明:本網(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)