MSHFlexGrid-选中任意单元格-让其变色.

Question

http://topic.csdn.net/u/20100429/19/d0feef9f-dde8-4e5b-9460-159df47f737d.htmlMSHFlexGrid中单击某一行变色
用了3楼的结果,选中一行后,这行变色,
VB codePrivate Sub HFlexgrid_EnterCell()
    '单击某一单元时，改变该行颜色
    Dim i_Col As Integer
    Dim c_col As Integer
    c_col = Hflexgrid.Col
    If c_col > 0 Then
        For i_Col = 0 To Hflexgrid.Cols - 1
            Hflexgrid.Col = i_Col
            Hflexgrid.CellBackColor = &HFFFFC0
        Next i_Col
        Hflexgrid.Col = c_col
    End If
End SubPrivate Sub HFlexgrid_LeaveCell()
    '当某一行失去焦点时，改变该行颜色
    Dim i_Col As Integer
    Dim c_col As Integer
    c_col = Hflexgrid.Col
    For i_Col = 0 To Hflexgrid.Cols - 1
        Hflexgrid.Col = i_Col
        Hflexgrid.CellBackColor = vbWhite
    Next i_Col
    Hflexgrid.Col = c_col
End Sub自认为在此程序上,改一下,就能实现
MSHFlexGrid-选中任意单元格-让其变色.
可是改了半天,目标没有实现.
请问各位大侠的问题是,
上面程序如何改,能实现标题所提的目标需求.

Answer 1

Private Sub HFlexGrid_Click()
    '单击某一单元时，改变该行颜色
    HFlexGrid.CellBackColor = &HFFFFC0
End SubPrivate Sub HFlexgrid_LeaveCell()
    '当某一行失去焦点时，改变该行颜色
    HFlexGrid.CellBackColor = vbWhite
End Sub