VB6.0程序菜单制作？

1、启动VB6.0，创建一个标准工程。

2、在窗体上右键选择“菜单编辑器”，或在“工具”菜单上单击选择也可以。

3、在d出的“菜单编辑器”窗口中，输入标题和名称，在标题括号内用“&”表示可以调出此功能，输入完毕，保存之后，就能在下面的显示区看见刚才编辑的菜单名称。

4、在显示区中单击已经建好的菜单下面，再创建一个菜单。

5、创建的菜单是否是原来新建的一级子菜单，或是二级子菜单，可以通过编辑区上的方向键来实现，单击右方向键按钮后，会看见它的一级子菜单前面有四个圆点，若是二级，圆点会增加到八个。

6、创建完毕后，确定即可，现在在窗体上就可以看见刚才我们创建的下拉菜单了。

所有软件都有菜单，最常用的就是下拉菜单和d出式菜单，接下来就用VB6.0创建一个简易的下来菜单。

工具/原料

VB6.0

计算机(WIN7系统)

方法/步骤

1、我们常用的记事本，菜单分为文件、编辑、格式、查看、帮助，一级菜单下面还有二级菜单、三级菜单，菜单中还有分隔线，接下来就介绍在VB6.0中怎么制作。

2、打开VB6.0，新建一个工程，添加一个文本框，将其text属性清空，将其ScrollBars属性设置为2-Vertical，MultiLine属性设置为True，调整文本框大小，使其铺满整个窗体，将窗体Form1的caption属性改为“无标题－记事本”，将界面设置成下图。

3、“工具”－-“菜单编辑器”，进入“菜单编辑器”对话框。

4、首先添加文件菜单，如图进行设置。菜单编辑器中做箭头表示将菜单升级，右箭头表示将菜单降级，属于下一级菜单，上箭头和下箭头用于移动菜单项的位置。

5、紧接着添加新建、打开、保存、另存为等子菜单。

6、完成文件菜单的创建后，单击“下一个”命令按钮，使菜单变成一级菜单，接着完成“编辑”菜单的制作。

7、需要进入二级菜单，就右箭头，退回上级菜单单击左箭头。完成菜单制作的最后效果如图。

1、启动VB6.0，创建一个标准工程。

2、在窗体上右键选择“菜单编辑器”，或在“工具”菜单上单击选择也可以。

3、在d出的“菜单编辑器”窗口中，输入标题和名称，在标题括号内用“&”表示可以调出此功能，输入完毕，保存之后，就能在下面的显示区看见刚才编辑的菜单名称。

4、在显示区中单击已经建好的菜单下面，再创建一个菜单。

5、创建的菜单是否是原来新建的一级子菜单，或是二级子菜单，可以通过编辑区上的方向键来实现，单击右方向键按钮后，会看见它的一级子菜单前面有四个圆点，若是二级，圆点会增加到八个。

6、创建完毕后，确定即可，现在在窗体上就可以看见刚才我们创建的下拉菜单了。

五、d出式菜单的设计

功能：用于对窗体中某个特定区域有关的 *** 作或选项进行控制。与下拉式菜单不同，它不需要在窗口的顶部下拉打开，可在窗口的任意位置打开。

设计分为两步：首先用菜单我器建立菜单，这一步与前面介绍的基本相同，的区别是，必须把菜单名（即主菜单项）的可见属性设置为False（子菜单项不要设置为False）；第二步用PopupMenu方法d出显示。

PopupMenu方法用来显示d出菜单，语法格式为：

object.PopupMenu menuname,flags,x, y,boldcommand

其中：

Object（对象）——窗体名。

Menuname（菜单名）——指在菜单我器中定义的主菜单项名。

X、Y——d出式菜单在窗体上的显示位置的X、Y坐标（与Flags参数配合使用）。

Boldcommand——指定d出式菜中的d出式菜单控件的名字，用以显示为黑体正文标题。

Flags——该参数是一个数值或符号常量，指定d出式菜单的位置和行为，其取值分为两组，一组用来指定菜单位置，另一组用来定义特殊的菜单行为，如下表：

指定菜单位置

定位常量 值 作用

VbPopupMenuLeftAlign 0 X坐标指定d出式菜单的左边界位置

VbPopupMenuCenterAlign 4 X坐标指定d出式菜单的中间位置

VbPopupMenuRightAlign 8 X坐标指定d出式菜单的右边界位置

定义菜单行为

定位常量 值 作用

VbPopupMenuLeftButton 0 通过单击鼠标左键选择菜单命令

VbPopupMenuRightButton 8 通过单击鼠标右键选择菜单命令

说明：

PopupMenu方法的6个参数中，除“菜单名”外，其余参数都是可选的。当省略了“对象”时，d出式菜单只能在当前窗体中显示。如果需要在其它窗体中显示d出菜单，则必须加上窗体名。

Flags的两组参数可以单独使用，也可以联合使用。当联合使用时，每组中取一个值，两个值相加；如果使用符号常量，则两个值用Or连接。

X、Y分别用来指定d出式菜单显示位置的横、纵坐标，如果省略，则d出菜单在鼠标光标的当前位置显示。

d出式菜单的“位置”由X、Y、Flags参数共同指定。如果省略这几个参数，则在单击鼠标右键d出菜单时，鼠标光标所在位置为d出式菜单左上角的坐标。在默认情况下，以窗体的左上角为坐标原点。如果只省略Flags参数，不省略X、Y参数，则X、Y为d出式菜单左上角的坐标；如果同时使用X、Y及Flags参数，则d出菜单的位置分为一下几种情况：

Flags=0X、Y为d出式菜单左上角的坐标

Flags=4X、Y为d出式菜单顶边中间的坐标

Flags=8X、Y为d出式菜单右上角的坐标

为了显示d出式菜单，通常把PopupMenu方法放在MouseDown事件中，该事件响应所有的鼠标单击 *** 作。按照惯例，一般通过单击鼠标右键显示d出菜单，这可以用Button参数来实现。对于两个键的鼠标来说，左键的Button参数值为1，右键的Button参数值为2。因此可以强制使用右键来响应MouseDown事件而显示d出菜单：

If Button=2 Then PopupMenu 菜单名

下面举例说明建立d出式菜单的一般过程。

例6 建立一个d出式菜单，用来改变文本框中字体的属性。

步骤如下：

打开菜单我器，设置各菜单属性。

标题 名称 内缩符号 可见性

字体格式化

粗体

斜体

下划线

20

隶书

退出 popFormat

popBold

popItalic

popUnder

font20

fontLs

Quit 无

1

1

1

1

1

1 False

True

True

True

True

True

True

编写窗体的MouseDown事件过程。

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

If Button = 2 Then '判断所按下的是否鼠标右键，如果是，则用PopupMenu方法d出菜单。

PopupMenu popFormat 'PopupMenu方法省略了对象参数,指的是当前窗体。

End If

End Sub

鼠标事件：

鼠标事件除了单击（Click）、双击（DbClick）事件外，还有识别按下或放开某个鼠标键而触发的事件，它们是压下鼠标事件（MouseDown）、松开鼠标事件（MouseUp）、移动鼠标光标事件（MouseMove）。3个鼠标事件具有相同的参数，含义分别为：

◆Button——被按下的鼠标键，可取3个值1、2、4，分别表示鼠标的左键、右键和中间键（如果没有或不可用，可省略）。

◆X、Y——鼠标光标当前的位置，不需要给出具体的数值，它随鼠标光标在窗体上的移动而变化。

◆Shift——表示 Shift、Ctrl和Alt的状态。它有8个值（0—7），分别作用如下：

0——未按转换键

1——按下Shift键

2——按下Ctrl键3

3——同时按下Shift和Ctrl键

4——按下Alt键

5——按下Alt键和Shift键

6——按下Alt键和Ctrl键

7——同时按下Shift、Ctrl和Alt键

---