VB 不用菜单编辑器.docVIP

VB 不用菜单编辑器 把下面代码分别写入文本文件，再改下后缀。 文件 工程1.vbp Type=Exe Form=Form1.frm Reference=*\G0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation Form=FrmCd.frm Module=Module1; Module1.bas IconForm=Form1 Startup=Form1 Command32= Name=工程1 HelpContextID=0 CompatibleMode=0 MajorVer=1 MinorVer=0 RevisionVer=0 AutoIncrementVer=0 ServerSupportFiles=0 CompilationType=0 OptimizationType=0 FavorPentiumPro(tm)=0 CodeViewDebugInfo=0 NoAliasing=0 BoundsCheck=0 OverflowCheck=0 FlPointCheck=0 FDIVCheck=0 UnroundedFP=0 StartMode=0 Unattended=0 Retained=0 ThreadPerObject=0 MaxNumberOfThreads=1 ------------------------------------------------ 文件 Form1.frm VERSION 5.00 Begin VB.Form Form1 Caption = Form1 ClientHeight = 4035 ClientLeft = 120 ClientTop = 420 ClientWidth = 7695 LinkTopic = Form1 ScaleHeight = 4035 ScaleWidth = 7695 StartUpPosition = 3 窗口缺省 Begin VB.CommandButton Cmd2 Caption = Command1 Height = 735 Left = 2520 TabIndex = 1 Top = 240 Width = 1695 End Begin VB.CommandButton Cmd1 Caption = Command1 BeginProperty Font Name = 微软雅黑 Size = 9 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty Height = 780 Left = 360 TabIndex = 0 Top = 240 Width = 1815 End End Attribute VB_Name = Form1 Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Cmd1_Click() Dim i As Integer Dim Cdss As CdStyle With Cdss ReDim .Caption(1 To 10) For i =