Multiple Row Select on DataGrid

[Mindcrime]

I know how to select multiple Rows on an ADO DataGrid by holding down the CTRL Key.

I would like to hold down the vbKeyShift to select Multiple rows at once. For example select row 1, hold down shift, select row 20 then rows 1 to 20 become Bookmarked.

I have trapped the Shift key in KeyDown, but the code I put in RowColumnChange works while the procedure is working, but all bookmarks are removed (or the grid clears these).

Private Sub grdItemData_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeyShift Then
        MultiLineSelect = True
    End If
    
End Sub
Private Sub grdItemData_RowColChange(Index As Integer, LastRow As Variant, ByVal LastCol As Integer)
    If MultiLineSelect = True Then
        For myIndex = LastRow To grdItemData(Index).Row
            grdItemData(Index).SelBookmarks.Add (myIndex)
        Next myIndex
    End If
End Sub

Help!

[Buzby]

Use TrueDBGrid (www.componentone.com) - it allows multi-selection by simply changing a property.

[Mindcrime]

I downloaded the eval version and it does allow this.
I think we will go down this route.

However I have acheived this using the ActiveX DataGrid (mention in my original thread).

Private Sub grdItemData_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyShift Then
        MultiLineSelect = True
    End If
End Sub
Private Sub grdItemData_RowColChange(Index As Integer, LastRow As Variant, ByVal LastCol As Integer)
    If MultiLineSelect = True Then
        MultiLineSelectStartRow = LastRow
        MultiLineSelectEndRow = grdItemData(Index).Row
    End If
End Sub
Private Sub grdItemData_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyShift Then
        For myIndex = MultiLineSelectStartRow To MultiLineSelectEndRow
            grdItemData(Index).SelBookmarks.Add (myIndex)
        Next myIndex
        MultiLineSelect = False
    End If
End Sub

For those who want to be picky, it only shows the selection after the shift key is released.

But what the hell!

[Al2017]

Hi,

I have a VB6 project that needs to be support for a while.
I have a question about the solution is provided here.

It works as long as the recordset is not filtered or sorted.
If you sort or filter, the .row index won't be sequential anymore and multi selection doesn't work properly.
Any solutions?