Rubrik: Controls · ListBox & ComboBox | VB-Versionen: VB.NET | 23.11.07 |
Mit nachfolgendem Code wird gezeigt, wie sich der aktuelle Eintrag, der sich unter dem Mauszeiger befindet, innerhalb einer ListBox ermitteln lässt.
Private Sub ListBox1_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles ListBox1.MouseMove
With ListBox1
' ListIndex anhand der Mausposition ermitteln
Dim p As Point = .PointToClient(Cursor.Position)
Dim index As Integer = .IndexFromPoint(p)
If index >= 0 Then
' Text des Eintrags unter dem Mauszeiger
Dim sText As String = .Items(index).ToString
' Eintrag in einem Label-Control anzeigen
Label1.Text = sText
Else
' Maus befindet sich nicht auf einem Eintrag
Label1.Text = ""
End If
End With
End Sub
Private Sub ListBox1_MouseLeave(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles ListBox1.MouseLeave
' Label-Inhalt löschen
Label1.Text = ""
End Sub