MSHFlexGrid 网格控件怎么让单独一行边原色啊?

Question

MSHFlexGrid 网格控件怎么让单独一行边原色啊?
谁知道,给个例子啊!!!!!

Answer 1

'单击一行变色的代码
Option ExplicitDim lngOldRow As LongPrivate Sub Command1_Click()
    Dim i As Long
    
    For i = 1 To MSFlexGrid1.Rows - 1
        MSFlexGrid1.Row = i
        If MSFlexGrid1.CellBackColor = vbRed Then MsgBox "第" & i & "此行是红色"
    Next
End SubPrivate Sub Form_Load()
    Dim i As Long
    
    MSFlexGrid1.Rows = 10: MSFlexGrid1.Cols = 5
    
    For i = 1 To MSFlexGrid1.Rows - 1
        MSFlexGrid1.TextMatrix(i, 1) = "aaaa" & i
    Next    MSFlexGrid1.SelectionMode = flexSelectionByRow
End SubPrivate Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    With MSFlexGrid1
        If y < .RowPos(.Row) Then MsgBox "单击固定行"
    End With
End SubPrivate Sub MSFlexGrid1_SelChange()
    MSFlexGrid1.Redraw = False
    Dim i As Long, lngNewRow As Long
    
    lngNewRow = MSFlexGrid1.Row
    MSFlexGrid1.Row = lngOldRow
    For i = 1 To MSFlexGrid1.Cols - 1
        MSFlexGrid1.Col = i
        MSFlexGrid1.CellBackColor = vbWhite
    Next
    
    MSFlexGrid1.Row = lngNewRow
    For i = 1 To MSFlexGrid1.Cols - 1
        MSFlexGrid1.Col = i
        MSFlexGrid1.CellBackColor = vbRed
    Next
    MSFlexGrid1.Redraw = True
    
    lngOldRow = lngNewRow
End Sub

Answer 2

MSFlexGrid1替换为MSHFlexGrid1效果一样