1 2 3 4 5 6 7 8
| Private Sub DataGridView1_CellMouseEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellMouseEnter
Dim mouse As Point = DataGridView1.PointToClient(MousePosition)
Dim hitInfo As DataGridView.HitTestInfo = DataGridView1.HitTest(mouse.X, mouse.Y)
If hitInfo.Type = DataGridViewHitTestType.Cell Then
clickedCell = DataGridView1.Rows(hitInfo.RowIndex).Cells(hitInfo.ColumnIndex)
Console.WriteLine(clickedCell.RowIndex.ToString & " ' " & clickedCell.ColumnIndex.ToString)
End If
End Sub |