|
AddHandler Me.sfDataGrid1.TableControl.MouseMove, AddressOf TableControl_MouseMove
AddHandler Me.sfDataGrid1.TableControl.MouseMove, AddressOf TableControl_MouseMove
AddHandler Me.sfDataGrid1.QueryCellStyle, AddressOf SfDataGrid1_QueryCellStyle
Private Sub TableControl_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
Dim rowColumnIndex = Me.sfDataGrid1.TableControl.PointToCellRowColumnIndex(Me.sfDataGrid1.TableControl.PointToClient(Cursor.Position))
If hoveredRowColumnIndex <> rowColumnIndex Then
sfDataGrid1.TableControl.Invalidate(sfDataGrid1.TableControl.GetCellRectangle(hoveredRowColumnIndex.RowIndex, hoveredRowColumnIndex.ColumnIndex, True))
hoveredRowColumnIndex = rowColumnIndex
sfDataGrid1.TableControl.Invalidate(sfDataGrid1.TableControl.GetCellRectangle(hoveredRowColumnIndex.RowIndex, hoveredRowColumnIndex.ColumnIndex, True))
End If
End Sub
Private Sub SfDataGrid1_QueryCellStyle(ByVal sender As Object, ByVal e As Syncfusion.WinForms.DataGrid.Events.QueryCellStyleEventArgs)
If e.RowIndex = hoveredRowColumnIndex.RowIndex AndAlso e.ColumnIndex = hoveredRowColumnIndex.ColumnIndex Then
e.Style.BackColor = Color.Yellow
End If
End Sub
Private Sub TableControl_MouseLeave(ByVal sender As Object, ByVal e As EventArgs)
hoveredRowColumnIndex = New RowColumnIndex(-1, -1)
End Sub |