You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
124 lines
2.9 KiB
124 lines
2.9 KiB
VERSION 5.00
|
|
Begin VB.Form frmFileMenu
|
|
Caption = "Form1"
|
|
ClientHeight = 8280
|
|
ClientLeft = -9996
|
|
ClientTop = 1980
|
|
ClientWidth = 6684
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 8280
|
|
ScaleWidth = 6684
|
|
Begin VB.Menu mnuFile
|
|
Caption = "文件(&F)"
|
|
Begin VB.Menu mnuFileNew
|
|
Caption = "新建(&N)"
|
|
Shortcut = ^N
|
|
End
|
|
Begin VB.Menu mnuFileOpen
|
|
Caption = "打开(&O)"
|
|
Shortcut = ^O
|
|
End
|
|
Begin VB.Menu mnuFileClose
|
|
Caption = "关闭(&C)"
|
|
End
|
|
Begin VB.Menu mnuFileBar1
|
|
Caption = "-"
|
|
End
|
|
Begin VB.Menu mnuFileSave
|
|
Caption = "保存(&S)"
|
|
Shortcut = ^S
|
|
End
|
|
Begin VB.Menu mnuFileSaveAs
|
|
Caption = "另存为(&A)..."
|
|
End
|
|
Begin VB.Menu mnuFileSaveAll
|
|
Caption = "全部保存(&L)"
|
|
End
|
|
Begin VB.Menu mnuFileBar2
|
|
Caption = "-"
|
|
End
|
|
Begin VB.Menu mnuFileProperties
|
|
Caption = "属性(&I)"
|
|
End
|
|
Begin VB.Menu mnuFileBar3
|
|
Caption = "-"
|
|
End
|
|
Begin VB.Menu mnuFilePrintSetup
|
|
Caption = "打印设置(&U)..."
|
|
End
|
|
Begin VB.Menu mnuFilePrintPreview
|
|
Caption = "打印预览(&V)"
|
|
End
|
|
Begin VB.Menu mnuFilePrint
|
|
Caption = "打印(&P)..."
|
|
Shortcut = ^P
|
|
End
|
|
Begin VB.Menu mnuFileBar4
|
|
Caption = "-"
|
|
End
|
|
Begin VB.Menu mnuFileSend
|
|
Caption = "发送(&D)..."
|
|
End
|
|
Begin VB.Menu mnuFileBar5
|
|
Caption = "-"
|
|
End
|
|
Begin VB.Menu mnuFileExit
|
|
Caption = "退出(&X)"
|
|
End
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmFileMenu"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
|
|
Private Sub mnuFileClose_Click()
|
|
MsgBox "Close Code goes here!"
|
|
End Sub
|
|
|
|
Private Sub mnuFileExit_Click()
|
|
'unload the form
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub mnuFileNew_Click()
|
|
MsgBox "New File Code goes here!"
|
|
End Sub
|
|
|
|
Private Sub mnuFileOpen_Click()
|
|
MsgBox "Open Code goes here!"
|
|
End Sub
|
|
|
|
Private Sub mnuFilePrint_Click()
|
|
MsgBox "Print Code goes here!"
|
|
End Sub
|
|
|
|
Private Sub mnuFilePrintPreview_Click()
|
|
MsgBox "Print Preview Code goes here!"
|
|
End Sub
|
|
|
|
Private Sub mnuFilePrintSetup_Click()
|
|
MsgBox "Print Setup Code goes here!"
|
|
End Sub
|
|
|
|
Private Sub mnuFileProperties_Click()
|
|
MsgBox "Properties Code goes here!"
|
|
End Sub
|
|
|
|
Private Sub mnuFileSave_Click()
|
|
MsgBox "Save File Code goes here!"
|
|
End Sub
|
|
|
|
Private Sub mnuFileSaveAll_Click()
|
|
MsgBox "Save All Code goes here!"
|
|
End Sub
|
|
|
|
Private Sub mnuFileSaveAs_Click()
|
|
MsgBox "Save As Code goes here!"
|
|
End Sub
|
|
|
|
Private Sub mnuFileSend_Click()
|
|
MsgBox "Send Code goes here!"
|
|
End Sub
|