• Home
 · 
• Miscellaneous
 · 
• MsFlexGrid act like ListBox

MsFlexGrid act like ListBox

When you click on a grid cell in msflex grid it will highlight the whole row and unhighlight the other rows.

Rate MsFlexGrid act like ListBox

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Author: Brandon Lepley
'Purpose: When the MsFlexGrid is clicked it will act like the list box control
Private Sub MsFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  Call SelectGridCell(MSFlexGrid1.Row)
End Sub
Private Sub SelectGridCell(GridRow As Integer)
  Dim i As Integer
  Dim j As Integer
  Dim NumRows As Integer
  Dim NumCols As Integer
  
  NumRows = MSFlexGrid1.Rows - 1 '.rows returns num of rows
  NumCols = MSFlexGrid1.Cols - 1 '.cols reutrns num of columns
  
  MSFlexGrid1.HighLight = flexHighlightNever 'since this sub takes
  'care of highlighting we tell it to never highlight so only 1 row
  'is selected at a time
  
  For i = 1 To NumRows
    If i <> GridRow Then
      MSFlexGrid1.Row = i
      For j = 1 To NumCols
        MSFlexGrid1.Col = j
        If MSFlexGrid1.CellBackColor = vbHighlight Then
          MSFlexGrid1.CellBackColor = vbWindowBackground
          MSFlexGrid1.CellForeColor = vbWindowText
        Else
          Exit For
        End If
      Next j
    End If
  Next i
  
  MSFlexGrid1.Row = GridRow 'set the row to the clicked row
  
  For i = 1 To NumCols 'setting the clicked row to highlighted
    MSFlexGrid1.Col = i
    MSFlexGrid1.CellBackColor = vbHighlight
    MSFlexGrid1.CellForeColor = vbHighlightText
  Next i
  'note when leaving this sub the msflexgrid.row will be the gridrow
  'and the column will be the last column. i.e. if there are 4 columns
  'then the msflexgrid1.col will be 4.
End Sub