请教:VB中右键弹出式菜单怎么做?

Question

popupmenu [yourmenu]
Ok..给分。

Answer 1

private sub form1_mouseup(....)
if button=vbrightbutton then menupopup 菜单名
end sub

Answer 2

用Form窗体的Popupmenu方法，例如我想在界面上一个picturebox上单击右键时弹出菜单：Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbRightButton Then
     Form1.PopupMenu mnuDrawing
  End If
End Sub

Answer 3

有时候如果需要弹出菜单和已有的菜单不一样的时候，
可以把需要的内容做成隐式菜单，然后再用POPupMenu命令

Answer 4

   Private Sub MousUp(Button as Integer,Shift as Integer,X as Single,Y as Single)
   if button=2 then
     popupmenu 菜单名
    endif
  end sub