在VB中如何能做出像windows那样点击鼠标右键弹出一个菜单。

Question

同上

Answer 1

現在 form 中設計菜單,然後再 form_MouseDOWN 事件中寫代碼:if Button = vbRightClick then
   Me.Popmenu MyMenu
endi

Answer 2

Private Sub Form_MouseUP(……）
   if Button=2 then
      popupMenu mnuFile
   end if
End Sub其中mnuFile菜单是用菜单编辑器设置.

Answer 3

语法如下：
［object]PopupMenu menuname [,flags[,y[,boldcommand]]]]
   其中object是对象表达式，可选项。如果省略 则带有焦点的form对象为缺省object
   Menuname是要显示的弹出式菜单名 指定的菜单必须还有至少一个子菜单
   flags 一个数值或常数 可以指定弹出式菜单的位置和行为
   boldcommand指定弹出式菜单中的菜单控件的名字，用以显示其黑体正文标题。若省略，则菜单中没有以黑体字出现的控件
   x指定弹出式菜单的x坐标 若省略 则使用鼠标的坐标 可选项
   y指定y坐标  

Answer 4

if Button = vbRightClick then
   Popmenu mnuPopup
endi其中mnuPopup一定要有子菜单,因为弹出菜单弹出的其实是子菜单.