No Visual Basic, ao trabalhar com um controle DBGrid, pode ser necessário destacar a linha selecionada. Isso pode ser feito utilizando a coleção SelBookmarks para adicionar o registro corrente.
Código para Destacar uma Linha
Private Sub DBGrid_RowColChange(LatRow As Variant, ByVal LasRow As Integer)
' Verifica se há registros no Recordset antes de destacar
If Data1.Recordset.RecordCount > 0 Then
' Adiciona a linha atual à coleção de linhas selecionadas
DBGrid.SelBookmarks.Add Data1.Recordset.Bookmark
End If
End Sub
Explicação do Código
-
DBGrid_RowColChange
: Esse evento é acionado quando o usuário muda de linha ou coluna no DBGrid. -
Data1.Recordset.RecordCount > 0
: Verifica se existem registros carregados no Recordset antes de tentar destacar a linha. -
DBGrid.SelBookmarks.Add(Data1.Recordset.Bookmark)
: Adiciona a linha atual à coleção de seleções, destacando-a visualmente.
Aplicação
Esse método pode ser útil para destacar registros em grids interativos, como:
- Exibir uma seleção visual no DBGrid.
- Permitir múltiplas seleções, mantendo as linhas destacadas.
- Melhorar a experiência do usuário ao navegar pelos dados.
Caso precise limpar as seleções antes de destacar uma nova linha, utilize:
DBGrid.SelBookmarks.Clear