请问，怎样用flexgrid与键盘的ctrl组合成多选功能？

Question

我想，按键盘的ctrl键，然后用mouse点击flexgrid进行选择记录。所选的记录可以在位置上不连续。
请大狭指教！长期在线MSN:[email protected]

Answer 1

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim colcount As Long
Dim i As Long
colcount = MSFlexGrid1.Cols
    
If Shift = 2 Then
    MSFlexGrid1.Row = MSFlexGrid1.MouseRow
    For i = 0 To colcount - 1
        MSFlexGrid1.Col = i
        MSFlexGrid1.CellBackColor = RGB(12, 12, 100)
    Next i
End If
End Sub