请教能不能在fpspread控件上运用右键弹出式菜单?

Question

请问能不能在fpspread控件上运用右键弹出式菜单?请详细一些,谢谢了.

Answer 1

可以,Private Sub Form_Load()
    mnu.Visible = False
End SubPrivate Sub fpSpread1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'    Dim lCol As Long
'    Dim lRow As Long
'    Call fpSpread1.GetCellFromScreenCoord(lCol, lRow, x, y)
    
  
    If Button = vbRightButton Then PopupMenu mnu, 0, x, y, mnuDelete
End Sub
Private Sub mnuDelete_Click()
    fpSpread1.DeleteRows fpSpread1.ActiveRow, 1
    fpSpread1.MaxRows = fpSpread1.MaxRows - 1
End Sub