怎样在窗体的标题栏右键菜单中加入"关于..."之类的菜单项啊

1、从“工程”菜单中选择“添加窗体”，在d出的对话框中选择“About

Dialog”，将其命名为"about"(名称是随意的，因后面用过，故假定为此)。

2、对刚才添加窗体进行一下修改。

3、通过“工具”菜单打开“菜单编辑器”，建一个标题为“关于…”的菜单，并在此菜单的单击事件中添加代码：

about.show

1

VB实现窗口的d出式菜单

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

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

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

编辑 menuEdit

……复制 mnuCopy

……剪切 munCut

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

Private Sub Form_Load()

Me.menuEdit.Visibe=False

′menuEdit菜单设置为不可视

End Sub

然后，利用MouseDown事件实现任意位置d出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事件中实现任意位置d出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 ′d出PopUpMenu。

End If

End Sub

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

以windows系统中的记事本为例，菜单栏中的【文件】，【编辑】等全部叫一个菜单条；在Java中用JMenuBar表示；

菜单条中每一个具体的项叫做一个菜单，在Java中用JMenu表示；

菜单中的每一项叫做菜单项，Java中用JMenuItem表示；

我们在窗体中创建菜单栏，首先需要创建菜单条，先声明，然后在构造方法中初始化；代咐历码为：JMenuBar bar = new JMenuBar()

然后创建菜单，也菜单条一样，也是先声明，再new；代码为：JMenu menu = new JMenu("文件")

接下来创建菜单项，和上面的一样，先声明，再new；代码为：JMenuItem item = new JMenuItem("新建")

创建好每一个部分之后，衡哪搜我们需要将菜单缓渗项添加到菜单中，然后将菜单添加到菜单条中；代码为：

menu.add(item)

bar.add(menu)

然后将整个菜单条添加到窗体中，代码为：

this.setJMenuBar(bar)

这样就可以实现在窗体中添加菜单条了，看一下效果吧。

---