当我鼠标点MSHFlexGrid控件某单元格时，该单元格变色

Question

当我鼠标点MSHFlexGrid控件某单元格时，该单元格变成其他颜色.
谢谢各位帮忙！

Answer 1

grid.CellBackColor = &H800000
            grid.CellForeColor = &HFFFFFF
这是白底蓝色，方法类似

Answer 2

Private Sub MSHFlexGrid1_EnterCell()
    MSHFlexGrid1.CellForeColor = vbBlue 
End SubPrivate Sub MSHFlexGrid1_LeaveCell()
    MSHFlexGrid1.CellForeColor = vbBlack
End Sub

Answer 3

Option Explicit
Dim j As Integer
Dim k As IntegerPrivate Sub MSHFlexGrid1_Click()
    Call Color(Me.MSHFlexGrid1.Row, Me.MSHFlexGrid1.Col, j, k)
End SubPrivate Sub Color(i As Integer, n As Integer, j As Integer, k As Integer)
  'i代表行
  'n代表列   With Me.MSHFlexGrid1
           .Row = i
           .Col = n
           .CellBackColor = &HC0FFFF    '变成黄色
           
           
           If (j > 0 And i <> j) Or (k > 0 And n <> k) Then
           .Row = j
           .Col = k
           .CellBackColor = &HFFFFFF    '变成白色
           End If
          j = i
          k = n
   End With
End Sub