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.
This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.
VERSION 5.00
Begin VB.Form frmEditMenu
Caption = "Form1"
ClientHeight = 2868
ClientLeft = -9996
ClientTop = 2880
ClientWidth = 4332
LinkTopic = "Form1"
ScaleHeight = 2868
ScaleWidth = 4332
Begin VB.Menu mnuEdit
Caption = "编辑(&E)"
Begin VB.Menu mnuEditUndo
Caption = "取消(&U)"
Shortcut = ^Z
End
Begin VB.Menu mnuEditBar1
Caption = "-"
End
Begin VB.Menu mnuEditCut
Caption = "剪切(&T)"
Shortcut = ^X
End
Begin VB.Menu mnuEditCopy
Caption = "复制(&C)"
Shortcut = ^C
End
Begin VB.Menu mnuEditPaste
Caption = "粘贴(&P)"
Shortcut = ^V
End
Begin VB.Menu mnuEditPasteSpecial
Caption = "选择性粘贴(&S)..."
End
Begin VB.Menu mnuEditBar2
Caption = "-"
End
Begin VB.Menu mnuEditDSelectAll
Caption = "全部选定(&A)"
Shortcut = ^A
End
Begin VB.Menu mnuEditInvertSelection
Caption = "反向选定(&I)"
End
End
End
Attribute VB_Name = "frmEditMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuEditCopy_Click()
MsgBox "将复制的代码放在此处！"
End Sub
Private Sub mnuEditCut_Click()
MsgBox "将剪切的代码放在此处！"
End Sub
Private Sub mnuEditDSelectAll_Click()
MsgBox "将全部选择的代码放在此处！"
End Sub
Private Sub mnuEditInvertSelection_Click()
MsgBox "将反向选择的代码放在此处！"
End Sub
Private Sub mnuEditPaste_Click()
MsgBox "将粘贴的代码放在此处！"
End Sub
Private Sub mnuEditPasteSpecial_Click()
MsgBox "将粘贴的特殊代码放在此处！"
End Sub
Private Sub mnuEditUndo_Click()
MsgBox "将 Undo代码放在此处！
End Sub
