vb菜单编辑代码？？？？

来源：百度知道 编辑：UC知道 时间：2024/06/11 22:56:36
有没有能够提供vb菜单代码的，万分感谢
我知道怎么添加菜单，只不过我现在时间比较紧，不知道有没有人可以提供菜单源代码，这样我就编一下其他的就好了

..点选窗体 然后在 工具--菜单编辑器 中添加菜单。

将以下内容保存到记事本里，然后更改该记事本文档后缀名为：.frm
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 165
ClientTop = 855
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.Menu menu
Caption = "文件"
Begin VB.Menu menu1
Caption = "打开"
End
Begin VB.Menu menu2
Caption = "退出"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub menu1_Click()
Shell "cmd ", 1
End