editmenu.frm

来自「VB6.0安装软件.代码和安装软件一起.用起来很不错.」· FRM 代码 · 共 80 行

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