Hallo. Ich möchte bei einem Datagrid mit der rechten Maustaste einen Eintrag auswählen, um über das Kontextmenü eine entsprechende Aktion auszulösen. Wie kann die mit der rechten Maustaste einen Eintrag aktivieren?
Gruss Anwender
Programmieren - alles kontrollieren 4.934 Themen, 20.613 Beiträge
Ich habe mittlerweile eine Lösung gefunden:
Private Sub dtgResultat_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Dim Row As Long
Dim Col As Long
Row = dtgResultat.RowContaining(Y)
Col = dtgResultat.ColContaining(X)
If Row > -1 Then
If Col > -1 Then
dtgResultat.Bookmark = dtgResultat.RowBookmark(Row)
dtgResultat.Col = Col
End If
End If
PopupMenu mnuPopUp
End If
End Sub
Somit werden mit einem Rechtsklick auf eine Zeile im DataGrid diese ausgewählt und ein PopUpMenü angezeigt.
Gruss Anwender