[VB] MSHFlexGrid - select a specific line

What error do you get ?



For information...

MSHFlexGrid  - Mouse Click Select a Row
How to Implement Ctrl , Shift and Ctrl+Shift functionality in MsflexGrid Like Windows Nt Explorer.

Option Explicit

Private Declare Function LockWindowUpdate Lib "user32" _
  (ByVal hwnd As Long) _
  As Long

Private m_booKeyCtrl As Boolean
Private m_booKeyShift As Boolean

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
 
   If Shift = vbShiftMask _
  Then
     m_booKeyShift = True
  End If
  If Shift = vbCtrlMask _
  Then
     m_booKeyCtrl = True
  End If

End Sub

Private Sub MSFlexGrid1_Keyup(KeyCode As Integer, Shift As Integer)
With MSFlexGrid1
 
   m_booKeyCtrl = False
  m_booKeyShift = False

End Sub

Private Sub MSFlexGrid1_RowColChange()
With MSFlexGrid1
 
   Static booBusy As Boolean
  If m_booKeyShift _
  Or booBusy _
  Then
     Exit Sub
  End If
  booBusy = True
 
   Dim intThisCol As Integer
  Dim intThisRow As Integer
  intThisCol = .Col
  intThisRow = .Row
 
   LockWindowUpdate .hwnd
 
   If m_booKeyCtrl _
  Then
     .Col = 1
     .Row = intThisRow
     .ColSel = .Cols - 1
     .RowSel = intThisRow
     If .CellBackColor = vbRed _
     Then
        .CellBackColor = vbWhite
     Else
        .CellBackColor = vbRed
     End If
  Else
     .Col = 1
     .Row = 1
     .ColSel = .Cols - 1
     .RowSel = .Rows - 1
     .FillStyle = flexFillRepeat
     .CellBackColor = vbWhite
     .Col = 1
     .Row = intThisRow
     .ColSel = .Cols - 1
     .RowSel = intThisRow
     .CellBackColor = vbRed
  End If
 
   .Col = intThisCol
  .Row = intThisRow
 
   LockWindowUpdate 0&
  booBusy = False
 
End With
End Sub

Private Sub MSFlexGrid1_SelChange()
With MSFlexGrid1
 
   If Not m_booKeyShift _
  Then
     Exit Sub
  End If
 
   Dim intThisCol As Integer
  Dim intThisRow As Integer
  intThisCol = .Col
  intThisRow = .Row
 
   Dim intNextCol As Integer
  Dim intNextRow As Integer
  intNextCol = .ColSel
  intNextRow = .RowSel
 
   LockWindowUpdate .hwnd
 
   ' Clear Screen
  .Col = 1
  .Row = 1
  .ColSel = .Cols - 1
  .RowSel = .Rows - 1
  .FillStyle = flexFillRepeat
  .CellBackColor = vbWhite
 
   ' Update Multiline
  .Col = 1
  .Row = intThisRow
  .ColSel = .Cols - 1
  .RowSel = intNextRow
  .FillStyle = flexFillRepeat
  .CellBackColor = vbRed
     
  LockWindowUpdate 0&
 
Tag900:
 
   .Col = intNextCol
  .Row = intNextRow

End With
End Sub