菜单编辑器

来源：互联网发布：淘宝开店装修店铺2016 编辑：程序博客网时间：2024/05/23 19:21

打开VB

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

在‘菜单编辑器’中

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

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

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

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

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

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

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

单击‘确定’。

编程为：

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

0 0