SPread 如何实现鼠标右击选中单元格？

SPread 如何实现鼠标右击选中单元格？我加了代码右击出现快捷菜单，但是单元格不跟着变。VB6.0和SPREAD8.0

Private Sub fpSpread1_RightClick(ByVal ClickType As Integer, ByVal Col As Long, ByVal Row As Long, ByVal MouseX As Long, ByVal MouseY As Long)
   PopupMenu mnuFile
End Sub

我添加了以下菜单和代码可以正常显示右键菜单

1. Private Sub A_Click(Index As Integer)
   
2.     fpSpread1.SetText fpSpread1.ActiveCol, fpSpread1.ActiveRow, "A"
   
3. End Sub
   
4. 
   
5. Private Sub B_Click()
   
6.     fpSpread1.SetText fpSpread1.ActiveCol, fpSpread1.ActiveRow, "B"
   
7. End Sub
   
8. 
   
9. Private Sub C_Click()
   
10.     fpSpread1.SetText fpSpread1.ActiveCol, fpSpread1.ActiveRow, "C"
    
11. End Sub
    
12. 
    
13. Private Sub fpSpread1_RightClick(ByVal ClickType As Integer, ByVal Col As Long, ByVal Row As Long, ByVal MouseX As Long, ByVal MouseY As Long)
    
14.     PopupMenu mnuFile
    
15. End Sub
    

复制代码

代码.png (109.83 KB, 下载次数: 255)

2011-6-17 13:52 上传

点击文件名下载附件
png

菜单.png (29.93 KB, 下载次数: 268)

2011-6-17 13:52 上传

点击文件名下载附件
png

显示菜单.png (18.18 KB, 下载次数: 239)

2011-6-17 14:00 上传

点击文件名下载附件
png