怎么用VB制作下拉菜单

VB实现窗口的弹出式菜单

在Windows95、Windows98或NT的风格中，有按动鼠标器右键弹出下拉菜单的操作，在VB执行环境下，有一些控件本身具有弹下拉菜单的功能，如TexTbox控件等，但大多数编辑类控件以及窗体本身却没有此功能，要在窗口中任意位置实现PopUpMenu（弹出式菜单），可借助VB的菜单工具来实现。

首先，打开VB的“工具”菜单条，利用“菜单编辑器”为窗体生成一个菜单：

标题(Caption) 菜单条名(Name)

编辑 menuEdit

……复制 mnuCopy

……剪切 munCut

其次，将生成的menuEdit菜单设置为不可视。

Private Sub Form_Load()

Me.menuEdit.Visibe=False

′menuEdit菜单设置为不可视

End Sub

然后，利用MouseDown事件实现任意位置弹出PopUpMenu，如下例：

本例中以RichTexBox控件为例，在其上面实现复制、剪切功能。

1．复制功能的实现。

Private Sub MnuCopy_Click()

Clipboar.Clear′将剪贴板清空

′将RichTexBox控件上选择上的内容复制到剪贴板

Clipboard.SetTextRichTexBox1.SelText

End Sub

2．剪切功能的实现。

Private Sub MnuCut_Click()

Clipboard.Clear ′将剪贴板清空

′将RichTextBox控件上选择了的内容复制到剪贴板

Clipboard.SetTextRichBox1.SelText

′将RichTexBox控件上选择了的内容删除

SendKeys〃{DELETE}〃,True

End Sub

3．在RichTexBox控件的MouseDown事件中实现任意位置弹出PopUPMenu。

OPrivate Sub RichTexBox1_MouseDown(Button As Integer,Shift As Integer,x As Single,Y As Single)

Dim MnuFile AS Menu ′声明一个菜单类型的变量

Set munFile=Me.MenuEdit ′将MenuEdit赋给菜单变量

if Button=2 Then ′判断是否按动鼠标器右键

′判断RichTexBox控件上选择了的内容是否存在，决定复制、剪切菜单条是否可操作。

If Len(RichTexBox.Text)=0 Or Len(RichTexBox.SelText)=0 Then

mnuCopy.Enabled=Flase ′复制菜单条不可操作。

nmuCut.Enabled=False ′剪切菜单条不可操作。

nmuCopy.Enabled=True ′复制菜单条可操作。

nmuCut.Enabled=True ′剪切菜单条可操作。

End IF

PopupMenu mnuFile ′弹出PopUpMenu。

End If

End Sub

这样，在VB执行环境中，操作窗体上的RichTexBox控件，按动鼠标器右键就可弹出下拉菜单，实现复制、剪切功能。

Private Sub 控件名_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = MouseButtonConstants.vbRightButton Then

PopupMenu mymenu, 标志, X, Y, 默认菜单(即加粗的菜单项)

End If

End Sub

如果要隐藏部分菜单项，可以在popupmenu之前设置菜单的属性，例如

mymenu.visible=false

mymenu.enabled=false

然后在弹出菜单后再恢复原属性

工具\材料

电脑

1、首先在电脑上找到“VB”打开，如下图所示，接着在“VB”中点击新建，双击面板。

2、接着在打开的界面中输入代码，如下图所示，添加完成。

3、接着在选项中用鼠标找到“工具”选项并且单击鼠标，接着再点击“自定义”。

4、最好即可看到已经在软件上面成功打开菜单栏，如下图所示。

“菜单编辑器”对话框

使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性。

对话框选项

“标题”

使用该选项可以输入菜单名或命令名，这些名字出现在菜单条或菜单之中。

如果想在菜单中建立分隔符条，则应在Caption 框中键入一个连字符 (-)。

为了能够通过键盘访问菜单项，可在一个字母前插入 &符号。在运行时，该字母带有下划线（&符号是不可见的），按 ALT 键和该字母就可访问菜单或命令。如果要在菜单中显示 &符号，则应在标题中连续输入两个 &符号。

“名称”

允许为菜单项输入控件名。控件名是标识符，仅用于访问代码中的菜单项；它不会出现在菜单中。

“索引”

可指定一个数字值来确定控件在控件数组中的位置。该位置与控件的屏幕位置无关。

“快捷键”

允许为每个命令选定快捷键。

“帮助上下文 ID”

允许为 context ID 指定唯一数值。在 HelpFile 属性指定的帮助文件中用该数值查找适当的帮助主题。

“协调位置”

允许选择菜单的 NegotiatePosition 属性。该属性决定是否及如何在容器窗体中显示菜单。

“复选”

允许在菜单项的左边设置复选标记。通常用它来指出切换选项的开关状态。

“激活的”

由此选项可决定是否让菜单项对事件做出响应，而如果希望该项失效并模糊显示出来，则也可清除事件。

“可视的”

将菜单项显示在菜单上。

“显示窗口列表”

在 MDI 应用程序中，确定菜单控件是否包含一个打开的 MDI 子窗体列表。

“右箭头”

每次单击都把选定的菜单向右移一个等级。一共可以创建四个子菜单等级。

“左箭头”

每次单击都把选定的菜单向上移一个等级。一共可以创建四个子菜单等级。

“上箭头”

每次单击都把选定的菜单项在同级菜单内向上移动一个位置。

“下箭头”

“下箭头”

每次单击都把选定的菜单项在同级菜单内向下移动一个位置。

“菜单列表”

该列表框显示菜单项的分级列表。将子菜单项缩进以指出它们的分级位置或等级。

“下一个”

将选定移动到下一行。

“插入”

在列表框的当前选定行上方插入一行。

“删除”

删除当前选定行。

“确定”

关闭菜单编辑器，并对选定的最后一个窗体进行修改。菜单可以在设计时使用，但在设计时可以通过选定一个菜单，来打开菜单单击事件的“代码”窗口，而不是执行事件代码。

“取消”

关闭菜单编辑器，取消所有修改。