13518219792
在Private Sub DataGridView1_CellFormatting(.....)事件中加入代码：
10年积累的成都网站制作、做网站、外贸营销网站建设经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站制作后付款的网站建设流程，更有东城免费网站建设让你可以放心的选择与我们合作。
e.cellstyle.baclcolor=color.red
您好，这种方法可以通过按钮的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
如果此回答对您有帮助，别忘了采纳哦，如果没有解决您的问题，您可以在互联网上寻找更多关于此问题的解决方案，谢谢！
vb中的颜色
VB中 H80000000(16进制8位，8开头) 这种 方式表示的颜色代表系统默认的各项设置的颜色
比如按钮，窗体
其他的就是 RGB颜色值
RGB 颜色值的范围就是 H0－HFFFFFF
HBBGGRR BB 是蓝色，GG是绿色，RR是红色 范围都是 0－255
从颜色中分离 红绿蓝
r = (color And HFF)
g = (color And HFF00) \ 256
b = (color And HFF0000) \ 65536
将红绿蓝合为一种颜色
color = b * H10000 + g * H100 + r
控件名.ForeColor = vbRed
如果要改为其他颜色的话，直接把“red”改为其他颜色所对应的英文，如要改为蓝色，则为“vbBlue”
任何颜色都是由三原色按比例组成的即Red,Green,Blue.用0~255之间的整数表示每种颜色的分量,取第一个字母则表示为:RGB(255,255,0).
公式:混合颜色值=RGB(红色值,绿色值,蓝色值)
例如: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) '蓝色
RGB(255, 255, 0) '黄色
RGB(255, 0, 255) '紫红色
RGB(0, 255, 255) '天蓝色
RGB(255, 255, 255) '白色
RGB(0, 0, 0) '黑色
数值可以在0到255之间变化，通过不同数值的组合就能得到16M（即1600多万）种颜色。
此外还可以使用常量：
vbRed '红色
vbGreen '绿色
vbBlue '蓝色
vbYellow '黄色
vbWhite '白色
vbBlack '黑色
等等
或者使用16进制值：
HFF '红色
HFF00 '绿色
HFF0000 '蓝色
HFFFF '黄色
HFF00FF '紫红色
HFFFF00 '天蓝色
HFFFFFF '白色
H0 '黑色
