VB6环境创建Form2.0窗体怎么添加菜单

用api函数创建非常麻烦

菜单的创建有三种方法：

1，在WINDOWCLASS中指定菜单资源的标识符；

2，在CreateWindowEx函数参数中指定菜单句柄；

3，先用CreateMenu 然后用 CreatePopupMenu 来新建一个菜单

vb里一般用第三种方法

你看看这个form2.0有没有Mouseup事件

有的话就可以用第三种方法来创建了.

VB 的菜单栏不是和 text 或者 label 一样（在左边的控件区域点击就可以）。

而是点击工具栏上面“保存”按钮右边的一个长的像菜单的按钮，或者从“工具”菜单中，选取“菜单编辑器”；或者用快捷键 ctrl+e 都可以调出

而后：

要在菜单编辑器中创建菜单控件，请按照以下步骤执行：

在“标题”文本框中，为第一个菜单标题键入希望在菜单栏上显示的文本。如果希望某一字符成为该菜单项的访问键，也可以在该字符前面加上一个 (&) 字符。在菜单中，这一字符会自动加上一条下划线。

菜单标题文本显示在菜单控件列表框中。

在“名称”文本框中，键入将用来在代码中引用该菜单控件的名字。请参阅本章后面“菜单标题与命名准则”。

单击向左或向右箭头按钮，可以改变该控件的缩进级。

如果需要的话，还可以设置控件的其他属性。这一工作可以在菜单编辑器中做，也可以以后在“属性”窗口中做。

选取“下一个”就可以再建一个菜单控件。

- 或者 -

单击“插入”可以在现有的控件之间增加一个菜单控件。

也可以单击向上与向下的箭头按钮，在现有菜单控件之中移动控件。

如果窗体所有的菜单控件都已创建，选取“确定”可关闭菜单编辑器。

创建的菜单标题将显示在窗体上。在设计时，单击一个菜单标题可下拉其相应的菜单项。

效果如下图,我们可以通过菜单编辑器,  取消 "可见" , 然后在鼠标单击的时候d出该菜单

参考代码如下

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then PopupMenu mnuSetting '点击鼠标右键时d出 设置菜单

End Sub

---