2014-12-19 16 views

回答

0

我會更新一個Label與每個條目的額外信息(在我看來,動態改變工具提示是非常麻煩的)。您可以使用MouseMove()事件並檢查光標是否位於由GetItemRectangle()返回的矩形邊界內:

Private Sub CheckedListBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles CheckedListBox1.MouseMove 
    Dim pt As Point = CheckedListBox1.PointToClient(Cursor.Position) 
    For i As Integer = 0 To CheckedListBox1.Items.Count - 1 
     If CheckedListBox1.GetItemRectangle(i).Contains(pt) Then 
      Label1.Text = "Info about: " & CheckedListBox1.Items(i).ToString 
      Exit For 
     End If 
    Next 
End Sub 
相關問題