在以下事件过程中,可以在用户按下鼠标右键时,显示一个上边框,以鼠标当前位置为心的弹出式菜单,而且这个弹出式菜单还可以识别右键对菜单命令的选择,相应的选项;
A.Private Sub Form _ Mouse Up(Button As Integer,Shift AS Integer,_ X As Single,Y As Singl If Button=2 Then PopupMenu mnuEdit,vbPopupMenuCenterAlign Or_ vbPopupMenuRightButton,X,Y,mnuEditOpen End If End Sub
B.Private Sub Form _ MouseUp(Button AS Integer,Shift AS Integer,_ X As Single,Y As Singl If Button=2 Then PopupMenu mnuEdit, End If End Sub
C.Private Sub Form _ MouseUp(Button AS Integer,Shift AS Integer,_ X As Single,Y As Singl PopupMenu mnuEdit,vbPopupMenuCenterAlign Or_ vbPopupMenuRightButton End Sub
D.Private SUb Form _ MouseUp(Button AS Integer,_ Shift As Integer,X As Single,Y As Singl If Button=2 Then PopupMenu mnuEdit,2 End If End Sub