打开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