求助，求助，快！！！1

[bvk2008]

本人对msflexgrid或mshflexgrid不太熟，现在急需要它们的用法，请问如果改变鼠标单击位置一个单元格内的颜色，

[饮水需思源]

Private Sub flexgrid_EnterCell()
If FlexGrid.Row = 0 Then Exit Sub
'将当前行改变颜色
Dim i As Integer
Dim iCol As Integer
iCol = FlexGrid.Col
For i = 1 To FlexGrid.Cols
FlexGrid.Col = i - 1
FlexGrid.CellBackColor = &HFFFFC0
Next i
FlexGrid.Col = iCol

End Sub
Private Sub flexgrid_LeaveCell()
If FlexGrid.Row = 0 Then Exit Sub
'将当前行改变颜色
Dim i As Integer
Dim iCol As Integer
iCol = FlexGrid.Col
For i = 1 To FlexGrid.Cols
FlexGrid.Col = i - 1
FlexGrid.CellBackColor = vbWhite
Next i
FlexGrid.Col = iCol
End Sub

[daisy8675]

Me.MSFlexGrid1.CellBackColor = vbBlue

[daisy8675]

都是相通的這些
Option Explicit

Private Sub MSHFlexGrid1_Click()
Me.MSHFlexGrid1.CellBackColor = vbBlue

End Sub

[飘零风]

Private Sub MSFlexGrid1_Click()
MSFlexGrid1.CellBackColor = vbGreen
MSFlexGrid1.ForeColor = vbRed
End Sub

[飘零风]

Private Sub MSFlexGrid1_Click()
MSFlexGrid1.CellBackColor = vbGreen
MSFlexGrid1.CellForeColor = vbRed
End Sub

[weaest]

MSFlexGrid1.CellBackColor = vbRed