vb 弹出式菜单包含打开,关闭,保存三个菜单项

发布网友 发布时间：2022-04-24 03:51

我来回答

共1个回答

热心网友 时间：2023-10-26 03:38

弹出式菜单，首先要创建菜单对象。方法是，把你要弹出的菜单当成是一个正常展示在窗体顶部的菜单，使用菜单编辑器将它制作出来。比如：添加一个标题是“弹出菜单”名称是“Menu1”的根菜单项，在其下层你可能要添加复制、粘贴、这是什么…这样的子菜单项作为弹出菜单的内容，内容你随意，这里不细究。最后要把根菜单项的“可见”对勾去掉。
创建完菜单对象后，便可以使用PopupMenu方法来弹出菜单。方法是：
PopupMenu
菜单对象名
继续上个例子，就是
PopupMenu
Menu1
这个方法后面还有很多可选参数，如协调位置等，这些待你自己慢慢研究，这里不细究。如果你的弹出菜单是通过按右键弹出的话，通常会把它放到MouseDown事件中，继续上个例子，就是
Private
Sub
控件_MouseDown(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
Button
=
2
Then
'如果点的是右键
PopupMenu
Menu1
End
If
End
Sub

热心网友 时间：2023-10-26 03:38

弹出式菜单，首先要创建菜单对象。方法是，把你要弹出的菜单当成是一个正常展示在窗体顶部的菜单，使用菜单编辑器将它制作出来。比如：添加一个标题是“弹出菜单”名称是“Menu1”的根菜单项，在其下层你可能要添加复制、粘贴、这是什么…这样的子菜单项作为弹出菜单的内容，内容你随意，这里不细究。最后要把根菜单项的“可见”对勾去掉。
创建完菜单对象后，便可以使用PopupMenu方法来弹出菜单。方法是：
PopupMenu
菜单对象名
继续上个例子，就是
PopupMenu
Menu1
这个方法后面还有很多可选参数，如协调位置等，这些待你自己慢慢研究，这里不细究。如果你的弹出菜单是通过按右键弹出的话，通常会把它放到MouseDown事件中，继续上个例子，就是
Private
Sub
控件_MouseDown(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
Button
=
2
Then
'如果点的是右键
PopupMenu
Menu1
End
If
End
Sub

热心网友 时间：2023-10-26 03:38

弹出式菜单，首先要创建菜单对象。方法是，把你要弹出的菜单当成是一个正常展示在窗体顶部的菜单，使用菜单编辑器将它制作出来。比如：添加一个标题是“弹出菜单”名称是“Menu1”的根菜单项，在其下层你可能要添加复制、粘贴、这是什么…这样的子菜单项作为弹出菜单的内容，内容你随意，这里不细究。最后要把根菜单项的“可见”对勾去掉。
创建完菜单对象后，便可以使用PopupMenu方法来弹出菜单。方法是：
PopupMenu
菜单对象名
继续上个例子，就是
PopupMenu
Menu1
这个方法后面还有很多可选参数，如协调位置等，这些待你自己慢慢研究，这里不细究。如果你的弹出菜单是通过按右键弹出的话，通常会把它放到MouseDown事件中，继续上个例子，就是
Private
Sub
控件_MouseDown(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
Button
=
2
Then
'如果点的是右键
PopupMenu
Menu1
End
If
End
Sub