Question

vb如何设置msflexgrid中某一指定网格的背景颜色

Answer 1

通过设置MSFlexGrid.CellBackColor属性，改变指定单元格的背景色。下面的示例程序中，鼠标点击某个单元格后，该单元格的背景变为红色。

（1）新建VB6工程，并在窗体上布置一个MSFlexGrid控件

（2）窗体代码

Option Explicit

'--------------------------------
' ChangeBackColor
' 设置指定的单元格的背景色
'     Row - 单元格所在的行
'     Col - 单元格所在的列
'     Colr - 设置单元的背景的颜色
'--------------------------------
Private Sub ChangeBackColor(ByVal Row As Integer, _
        ByVal Col As Integer, _
        ByVal Color As Long)
    Dim oldRow As Integer, oldCol As Integer
    With MSFlexGrid1
        ' 保存 MSFlexGrid1 当前的“焦点”单元格               
        oldRow = .Row
        oldCol = .Col
        ' 将指定的单元格设置为“焦点”单元
        .Row = Row
        .Col = Col
        ' 设置背景色
        .CellBackColor = Color
        ' 恢复原来的“焦点”单元格
        .Row = oldRow
        .Col = oldCol
    End With
End Sub

Private Sub Form_Load()
    ' 设置 MSFlexGrid1 为 5行4列
    With MSFlexGrid1
        .Rows = 5
        .Cols = 4
    End With
End Sub

Private Sub MSFlexGrid1_Click()
    ' 将鼠标点击的单元格背景色设置为红色
    With MSFlexGrid1
        ChangeBackColor .Row, .Col, vbRed
    End With
End Sub

（3）运行效果

Answer 2

if a>0 then 单元格（你的代码）= &H000000FF&（这事红色）

Answer 3

先指定行和列
MSFlexGrid1.Row=2
MSFlexGrid1.Col=3
MSFlexGrid1.CellBackColor = &HFFFF80

追问

MSFlexGrid1.Row=2
MSFlexGrid1.Col=3
MSFlexGrid1.CellBackColor = &HFFFF80
这个是可以改变颜色，但是，网格也一起改变了啊，变成row=2 col =3了，我是想做一个网格数据表，a>0该单元格红色，a<0单元格黄色

追答

没说明白是你的问题，没回答正确是我的问题，答案是正确的。