添加菜单

菜单栏的制作

1.打开VB

2.右击’Form1‘空白处，单击’菜单编辑器‘。

3.在‘菜单编辑器’中

  标题为“文件（&E）”名称为“file”，单击‘下一个’；

  标题为“编辑（&）”，名称为“compile”；

  选中’编辑‘，单击‘插入’，单击'右箭头图标'，标题为“新建工程（&N）”，名称为“NewProject”，快捷键为“Ctil+N”;

  选中’编辑‘，单击‘插入’，单击'右箭头图标'，标题为“打开工程（&O）”，名称为“OpenProject”，快捷键为“Ctil+O”;

  选中’编辑‘，单击‘插入’，单击'右箭头图标'，标题为“-”，名称为“line”;

  选中’编辑‘，单击‘插入’，单击'右箭头图标'，标题为“添加工程（&D）”，名称为“AddProject”;

  选中’编辑‘，单击‘插入’，单击'右箭头图标'，标题为“工程”，名称为“appname”，索引为“0”;

  单击‘确定’。

4.编程为：

Dim i As Integer

Private Sub Command1_Click()
    i = i + 1
    Load appname(1)
    appname(i).Caption = "工程1"
    appname(i).Checked = True
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
     popupmean file
End Sub