在Private Sub DataGridView1_CellFormatting(.....)事件中加入代码：
十多年的什邡网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。网络营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整什邡建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“什邡网站设计”,“什邡网站推广”以来，每个客户项目都认真落实执行。
e.cellstyle.baclcolor=color.red
代码给你了 剩下的就看你自己了
private void Form1_Load(object sender, EventArgs e)
{
//获取默认颜色
CellColor = dataGridView1[0, 0].Style.BackColor;
}
Color CellColor = Color.Black;
private void dataGridView1_CellClick(object sender, DataGridViewCellEventArgs e)
{
//如果第一个为红色，恢复默认并将所点击的单元格换色
if (dataGridView1[0, e.RowIndex].Style.BackColor != CellColor)
{
dataGridView1[0, e.RowIndex].Style.BackColor = CellColor;
dataGridView1[e.ColumnIndex, e.RowIndex].Style.BackColor = Color.Red;
}
//单击后第一个单元格红色
dataGridView1[0, e.RowIndex].Style.BackColor = Color.Red;
}
指定MSFlexGrid特定列的序号，然后依次设置属于这个列单元格文字的颜色。
实现方法如下：
（1）新建一个VB6工程
（2）在Form1上布置一个MSFlexGrid，一个TextBox和Command
Text1用来指定要改变颜色列的序号
（3）窗体代码
Option Explicit
Private Sub Command1_Click()
Dim currRow As Integer, currCol As Integer
With MSFlexGrid1
'记录MSFlexGrid1当前单元格所在的行与列
currRow = .Row
currCol = .Col
'改变指定列（由Text1指定列的序号）
Dim r As Integer, c As Integer
'打开错误陷阱
On Error GoTo ErrProc
'获取指定的列
c = Val(Text1.Text)
'设置为当前列
.Col = c
'遍历各行，并改变文本的颜色
For r = 0 To .Rows - 1
'设置当前行
.Row = r
' 设置有当前行和当前列指定单元格的文本颜色为红色
.CellForeColor = vbRed
.CellFontBold = True
Next
'恢复先前指定的单元格
.Row = currRow
.Col = currCol
End With
ErrProc:
End Sub
Private Sub Form_Load()
'设置MSFlexGrid1的行列数，并用数据
'填充单元格
With MSFlexGrid1
.Rows = 5
.Cols = 5
Dim r As Integer, c As Integer
For r = 0 To .Rows - 1
For c = 0 To .Cols - 1
.TextMatrix(r, c) = "第" r "行" "第" c "列"
Next
Next
End With
Text1.Text = ""
Command1.Caption = "改变颜色"
End Sub
（4）运行效果
改变第1列的颜色
改变第4列的颜色
通过改变ListViewItem及其ListViewSubItem的前景色，改变整行的颜色。实现方法如下 （1）在Visual Studio中新建一个“Windows 窗体应用程序”项目 （2）在Form1窗体设计器上添加一个ListView控件
