在鼠标悬停时更改datagridview上的行字体vb.net

Question

当鼠标悬停在行上时，无论选择哪一行，我都希望在datagridview行上获得下划线字体。

我得到的 - 半:)

Private Sub aDgv_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles aDgv.MouseMove 

    Dim hit As DataGridView.HitTestInfo = aDgv.HitTest(e.X, e.Y) 
    If hit.Type = DataGridViewHitTestType.Cell Then 
     aDgv.Rows(hit.RowIndex).DefaultCellStyle.Font = New Font(aDgv.DefaultCellStyle.Font, FontStyle.Underline) 
    End If 
End Sub 

所以，当我过来该行行文本变成下划线（如预期），当我移动到下一行则那些下一行变成下划线，但以前不回正常的字体。

该怎么办，只有鼠标悬停行上的文本才会被加下划线。
如何将鼠标移动到其他行时将字体重置为正常？

Answer 1

要回正常Font只使用CellMouseLeave事件

Private Sub DataGridView1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseMove 
    Dim normalFont = New Font(DataGridView1.DefaultCellStyle.Font, FontStyle.Regular) 
    Dim hit As DataGridView.HitTestInfo = DataGridView1.HitTest(e.X, e.Y) 
    If hit.Type = DataGridViewHitTestType.Cell Then 
     If DataGridView1.Rows(hit.RowIndex).Cells(hit.ColumnIndex).FormattedValue.ToString().Trim().Length > 0 Then 
      DataGridView1.Rows(hit.RowIndex).DefaultCellStyle.Font = New Font(DataGridView1.DefaultCellStyle.Font, FontStyle.Underline) 
     Else 
      DataGridView1.Rows(hit.RowIndex).DefaultCellStyle.Font = normalFont 
     End If 
    End If 
End Sub 

Private Sub DataGridView1_CellMouseLeave(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellMouseLeave 
    Dim normalFont = New Font(DataGridView1.DefaultCellStyle.Font, FontStyle.Regular) 
    If (e.ColumnIndex > -1) Then 
     If e.RowIndex > -1 Then 
      If DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).FormattedValue.ToString().Trim().Length > 0 Then 
       DataGridView1.Rows(e.RowIndex).DefaultCellStyle.Font = normalFont 
      Else 
       DataGridView1.Rows(e.RowIndex).DefaultCellStyle.Font = normalFont 
      End If 
     End If 
    End If 
End Sub