下面举一个实现此功能的例子：

Private Sub HFlexgrid_EnterCell()
        '*将当前行改变颜色
Dim i       As Integer
Dim iCol    As Integer
    iCol = HFlexgrid.Col
    For i = HFlexgrid.FixedCols   1 To HFlexgrid.Cols
        HFlexgrid.Col = i - 1
        HFlexgrid.CellBackColor = &HFFFFC0
    Next i
    HFlexgrid.Col = iCol
End Sub
Private Sub HFlexgrid_LeaveCell()
        '*将当前行改变颜色
Dim i       As Integer
Dim iCol    As Integer
    If HFlexgrid.Row = 0 Then
        Exit Sub
    End If
    iCol = HFlexgrid.Col
    For i = HFlexgrid.FixedCols   1 To HFlexgrid.Cols
        HFlexgrid.Col = i - 1
        HFlexgrid.CellBackColor = vbWhite
    Next i
    HFlexgrid.Col = iCol
End Sub

 

如果你需要单选一行 ：
Grid.Row = 行号
Grid.RowSel = 行号
Grid.Col = 0
Grid.ColSel = Grid.Cols - 1