Ich suche nach einer Erkennung eines Rechtsklick auf ein Item in einem Listview Element.
Mit einer Listbox ist das recht einfach..
Private Sub ListBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
If Button = vbKeyRButton Then
If UserForm.ListBox.List(UserForm.ListBox.ListIndex) >= 0 Then
... Tu Was ...
End If
End If
Für das Listview Element habe ich, ausser ein paar Beiträgen zu VB.net, nicht viel gefunden...Kann man das an VBA anpassen?
Private Sub ListView1_MouseDown(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown
' Rechtsklick?
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim oItem As ListViewItem = ListView1.GetItemAt(e.X, e.Y)
If oItem IsNot Nothing Then
' ... und Kontextmenü anzeigen
ContextMenuStrip1.Show(ListView1, e.X, e.Y)
End If
End If
End Sub