提示 - 閃爍

Question

我已經下鼠標光標提示設置，但它是閃爍的時候，即使光標不移動。有關如何防止工具提示閃爍的任何想法？

代碼：

Private Sub DataGridView1_MouseHover(sender As Object, e As EventArgs) Handles DataGridView1.MouseHover 


     Dim cur = DataGridView1.HitTest(e.X, e.Y) 

     If cur.RowIndex >= 0 AndAlso cur.ColumnIndex >= 0 Then 

      DataGridView1.Cursor = Cursors.Help 

      ToolTip1.Active = True 
      Dim cp = Cursor.Position 
      cp.Y += CInt(Cursor.Size.Height * 0.2) 
      cp.X += CInt(Cursor.Size.Width * 0.8) 
      ToolTip1.Show("Details...", Me, PointToClient(cp)) 

     Else 
      DataGridView1.Cursor = Cursors.Default 
      ToolTip1.Active = False 
     End If 

    End Sub 

Answer 1

看來，一旦顯示工具提示中，DataGridView暫時失去焦點，經過一番測試。當它重新獲得焦點的MouseMove事件被再次調用這會導致工具提示關閉並再次重新顯示本身，所以它繼續無限，吃CPU和RAM一些，直到您移動鼠標在細胞外。

解決這個問題的最簡單的方法是讓請檢查是否鼠標在移動或不自上次MouseMove叫，那麼只有重新顯示工具提示如果鼠標移動。

我用CellMouseMove和CellMouseLeave事件，而不是爲您節省額外的檢查，如果鼠標在一個小區：

Dim PreviousCursorPos As New Point(-1, -1) 

Private Sub DataGridView1_CellMouseMove(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseMove 
    If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 AndAlso _ 
     PreviousCursorPos <> Cursor.Position Then 'If the mouse is not in the same position as before, then execute the code. 

     DataGridView1.Cursor = Cursors.Help 
     ToolTip1.Active = True 

     Dim cp = Cursor.Position 
     cp.Y += CInt(Cursor.Size.Height * 0.2) 
     cp.X += CInt(Cursor.Size.Width * 0.8) 

     ToolTip1.Show("Details...", Me, Me.PointToClient(cp)) 

     PreviousCursorPos = Cursor.Position 
    End If 
End Sub 

Private Sub DataGridView1_CellMouseLeave(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellMouseLeave 
    DataGridView1.Cursor = Cursors.Default 
    ToolTip1.Active = False 
End Sub 

的工具提示移動鼠標時會閃爍了一下，但一旦它仍然有贏這不是一個問題。