189 8069 5689
这东西改不了，要想改的话要在系统显示设置里修改主题。
惠济网站建设公司创新互联建站,惠济网站设计制作，有大型网站制作公司丰富经验。已为惠济上千提供企业网站建设服务。企业网站搭建\成都外贸网站制作要多少钱，请找那个售后服务好的惠济做网站的公司定做！
不过如果想做的漂亮些，可以去网上找代码把整个窗体改成蓝色（随便一种颜色）然后用代码把窗体蓝色部分扣去，可以PS一个窗体图片，插到窗体上，这样这个窗体蓝色部分都被扣去了（图片里的蓝色无法扣去）只能看见一张图片，可以在上面加控件。
绘制线条采用Draw开头的方法，颜色参数用Pen类；
绘制有填充色的封闭图形采用Fill开头的方法，颜色参数用Brush类；
例如：
'绘制一个实心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划矩形区域内
Me.CreateGraphics.FillEllipse(New SolidBrush(Color.Orange), 200, 200, 100, 100)
'绘制一个空心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划矩形区域内
Me.CreateGraphics.DrawEllipse(New Pen(Color.Black), 200, 200, 100, 100)
VB中窗体颜色可通过设置窗体的BackColor来改变。
BackColor、ForeColor 属性
BackColor－返回或设置对象的背景颜色。ForeColor－返回或设置在对象里显示图片和文本的前景颜色。
以下代码是改变窗体背景色和改变图片框背景和前景色的代码：
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事件来实现，比如说，当单击按钮RedColor（RedColor为这个按钮的Name属性的属性值）的时候，要使按钮的颜色变成红色，这可以在代码视图中的控件选择下拉列表中选择RedColor这个控件，然后在右边的事件下拉列表中选择MouseDown事件（当按下鼠标时发生），这时，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方法来设置RGB颜色参数，在RGB颜色系统中，R代表红色，G代表绿色，B代表蓝色，根据这三种颜色的不同程度的调和，就会得到不同的颜色，如果您要得到深色的天蓝色，则可以设置FromArgb(0, 191, 255)，这个颜色转换为HTML中的RGB颜色就是#00BFFF。
当然颜色还原最好是写在MouseUp事件里面，这样就不必在单击其他按钮时来还原上一次按下的按钮的颜色，在这里，为了方便描述，我们假设按钮的默认颜色为白色，也就是FromArgb方法设置为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的含义是当鼠标弹起时发生，所以在这个事件就可以设置按钮颜色的还原，即添加下列代码来实现：
RedColor.BackColor = Color.FromArgb(255, 255, 255)
当然，这就编写好了一个按钮按下时变色，回弹时还原的功能，至于另外一个按钮的功能，这与这个按钮的功能一样，只是代码有一些细微的差别而已，假设这个按钮的Name属性的属性值为BlueColor，相应的代码对应如下：
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
当然，这个你只要分析了控件事件代码的基本结构，一切就一目了然了，控件事件代码的基本结构如下：
[作用域] Sub 事件名([参数列表]) Handles 控件事件1 [, 控件事件2, 控件事件3...]
[事件代码区域]
End Sub
如果此回答对您有帮助，别忘了采纳哦，如果没有解决您的问题，您可以在互联网上寻找更多关于此问题的解决方案，谢谢！
首先command的style要设为1，否则无法改变
然后在backcolor设置颜色
按钮的字体颜色不能改
如果想改字体颜色，简单点可以用image做按钮。
如果一定要，请看：
在工程中添加以下模块(Module):
Module modExtButton.bas
Option Explicit
近来项目用到了一个类似WEB控件DataGrid中自定义行或列的颜色的功能 然而应用却是在WIN的窗体下 实现起来无法使用类似JavaScript的脚本注册的功能来动态完成 十分着急 察看了CSDN的一些关于WinForm下的关于DataGrid的资料 看到这样的一篇介绍DG结构的美文 题目是《Henry手记:WinForm Datagrid结构剖析》 作者是韩睿（Latitude） 其中介绍了WIN DG的颜色的定义 但是主要是针对每一个Cell的 我们需要的则是标记某一行的数据 用颜色突出显示 所以作了部分改动 现在把部分代码张贴出来供大家参考 ． 基础类出自韩睿 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 关于行颜色定义的类 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 = ) 设置选中的行的颜色 默认是第一行选中 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