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.
85 lines
2.0 KiB
85 lines
2.0 KiB
VERSION 5.00
|
|
Begin VB.Form frmExpFileMenu
|
|
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 mnuFileOpen
|
|
Caption = "打开(&O)"
|
|
End
|
|
Begin VB.Menu mnuFileFind
|
|
Caption = "查找(&F)"
|
|
End
|
|
Begin VB.Menu mnuFileBar1
|
|
Caption = "-"
|
|
End
|
|
Begin VB.Menu mnuFileSend
|
|
Caption = "发送到(&D)"
|
|
End
|
|
Begin VB.Menu mnuFileBar2
|
|
Caption = "-"
|
|
End
|
|
Begin VB.Menu mnuFileNew
|
|
Caption = "新建(&N)"
|
|
End
|
|
Begin VB.Menu mnuFileBar3
|
|
Caption = "-"
|
|
End
|
|
Begin VB.Menu mnuFileDelete
|
|
Caption = "删除(&D)"
|
|
End
|
|
Begin VB.Menu mnuFileRename
|
|
Caption = "重命名(&M)"
|
|
End
|
|
Begin VB.Menu mnuFileProperties
|
|
Caption = "属性(&I)"
|
|
End
|
|
Begin VB.Menu mnuFileBar4
|
|
Caption = "-"
|
|
End
|
|
Begin VB.Menu mnuFileClose
|
|
Caption = "关闭(&C)"
|
|
End
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmExpFileMenu"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
|
|
Private Sub mnuFileClose_Click()
|
|
'unload the form
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub mnuFileDelete_Click()
|
|
MsgBox "Delete Code goes here!"
|
|
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 mnuFileProperties_Click()
|
|
MsgBox "Properties Code goes here!"
|
|
End Sub
|
|
|
|
Private Sub mnuFileRename_Click()
|
|
MsgBox "Rename Code goes here!"
|
|
End Sub
|
|
|
|
Private Sub mnuFileSend_Click()
|
|
MsgBox "Send Code goes here!"
|
|
End Sub
|