mshflexgrid 能否控制单选

Question

能否控制 mshflexgrid 只能选种一条记录

Answer 1

Dim m_lngRowOld As LongPrivate Sub MSHFlexGrid1_SelChange()
    Dim i As Long, lngRowNew As Long
        
    With MSHFlexGrid1
        lngRowNew = .Row
        For i = 1 To .Cols - 1
            .Row = m_lngRowOld
            .Col = i
            .CellBackColor = vbWhite
            .Row = lngRowNew
            .CellBackColor = vbBlue
        Next
        m_lngRowOld = lngRowNew
    End With
End Sub

Answer 2

谢谢！！！！！！！！！！！！！！！ 只有这种办法吗  能用Api Windows 消息控制吗