Private Sub clbAuswahl_MouseDown(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.MouseEventArgs) Handles clbAuswahl.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
 
            With clbAuswahl
                ' 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
                    m_strAktEintrag = sText
                    .ContextMenuStrip = Me.ContextMenuStrip1
                Else
                    ' Maus befindet sich nicht auf einem Eintrag
                    ' Contextmenü nicht einblenden
                    .ContextMenuStrip = Nothing
 
                End If
            End With
 
        End If
    End Sub

Beitrag wurde zuletzt am 23.07.09 um 15:01:36 editiert.