Zellenauswahl im FlexGrid per Rechtsklick Dieser Tipp verrät, wie sich die Zelle, auf der ein Rechtsklick erfolgte, ermitteln und selektieren lässt.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  17.543
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 18 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Im Microsoft FlexGrid-Control wird eine Zelle bekanntlich nur dann selektiert, wenn der User mit der linken Maustaste auf die Zelle klickt. Manchmal soll eine Zelle aber auch per Rechtsklick zur aktiven Zelle werden, um z.B. dann ein PopUp-Menü anzuzeigen.

Nachfolgender Code verrät, wie sich die Zelle ermitteln und selektieren lässt, wenn der User auf diese mit der rechten Maustaste klickt.

Private Sub MSFlexGrid1_MouseUp(Button As Integer, _
  Shift As Integer, x As Single, y As Single)
 
  ' Rechtsklick?
  If Button = vbRightButton Then
    Dim nRow As Long
    Dim nCol As Long
    Dim nRowCur As Long
    Dim nColCur As Long
 
    With MSFlexGrid1
      ' aktuelle Zelle "merken"
      nRowCur = .Row
      nColCur = .Col
 
      ' Zelle ermitteln
      nRow = .MouseRow
      nCol = .MouseCol
 
      ' Erfolgte der Mausklick auf eine existierende
      ' Zelle im Grid?
      If nRow >= 0 And nCol >= 0 Then
        ' Zelle zur aktiven Zelle machen (selektieren)
        .Row = nRow
        .Col = nCol
 
        If x >= .CellLeft And x <= .CellLeft + .CellWidth And _
          y >= .CellTop And y <= .CellTop + .CellHeight Then
 
          ' Beispiel: PopUp-Menü anzeigen
          PopUpMenu myPopUp          
        Else
          ' ursprüngliche Zelle wieder selektieren
          .Row = nRowCur
          .Col = nColCur
        End If
      End If
    End With
  End If
End Sub