📄 frmmdi.frm
字号:
Begin VB.Menu mnuEdit
Caption = "&Edit"
Begin VB.Menu mnuEditUndo
Caption = "&Undo"
Shortcut = ^Z
End
Begin VB.Menu mnuEditRedo
Caption = "&Redo"
Shortcut = ^Y
End
Begin VB.Menu mnuEditBar0
Caption = "-"
End
Begin VB.Menu mnuEditCut
Caption = "Cu&t"
Shortcut = ^X
End
Begin VB.Menu mnuEditCopy
Caption = "&Copy"
Shortcut = ^C
End
Begin VB.Menu mnuEditPaste
Caption = "&Paste"
Shortcut = ^V
End
Begin VB.Menu mnuEditBar1
Caption = "-"
End
Begin VB.Menu mnuEditDelete
Caption = "&Delete"
Shortcut = {DEL}
End
Begin VB.Menu mnuEditSelectAll
Caption = "&Select All"
Shortcut = ^A
End
Begin VB.Menu mnuEditBar2
Caption = "-"
End
Begin VB.Menu mnuEditMarkClean
Caption = "Mar&k Clean"
End
End
Begin VB.Menu mnuSearch
Caption = "&Search"
Begin VB.Menu mnuSearchFind
Caption = "&Find..."
Shortcut = ^F
End
Begin VB.Menu mnuSearchFindNext
Caption = "Find &Next"
Enabled = 0 'False
Shortcut = {F3}
End
Begin VB.Menu mnuSearchBar0
Caption = "-"
End
Begin VB.Menu mnuSearchReplace
Caption = "&Replace..."
Shortcut = ^R
End
Begin VB.Menu mnuSearchBar1
Caption = "-"
End
Begin VB.Menu mnuSearchGoTo
Caption = "&Go To..."
Shortcut = ^G
End
End
Begin VB.Menu mnuView
Caption = "&View"
Begin VB.Menu mnuViewStatusBar
Caption = "&Status Bar"
End
Begin VB.Menu mnuViewRuler
Caption = "&Ruler"
End
Begin VB.Menu mnuViewFileTree
Caption = "Fi&le Tree View"
End
Begin VB.Menu mnuViewFullScreen
Caption = "&Full Screen"
Shortcut = {F11}
End
Begin VB.Menu mnuViewBar0
Caption = "-"
End
Begin VB.Menu mnuViewToolbars
Caption = "T&oolbars"
Begin VB.Menu mnuViewToolbarStandard
Caption = "&Standard"
End
Begin VB.Menu mnuViewToolbarFile
Caption = "&File"
End
Begin VB.Menu mnuViewToolbarEdit
Caption = "&Edit"
End
Begin VB.Menu mnuViewToolbarFormat
Caption = "Fo&rmat"
End
Begin VB.Menu mnuViewToolbarFont
Caption = "F&ont"
End
Begin VB.Menu mnuViewToolbarWindow
Caption = "&Window"
End
End
Begin VB.Menu mnuViewBar1
Caption = "-"
End
Begin VB.Menu mnuViewStayonTop
Caption = "Stay on &Top"
End
Begin VB.Menu mnuViewBar2
Caption = "-"
End
Begin VB.Menu mnuViewMode
Caption = "&No Wrap"
Index = 0
End
Begin VB.Menu mnuViewMode
Caption = "&Word Wrap"
Index = 1
End
Begin VB.Menu mnuViewMode
Caption = "WY&SIWYG"
Index = 2
End
Begin VB.Menu mnuViewBar3
Caption = "-"
End
Begin VB.Menu mnuViewDocumentProperties
Caption = "Document P&roperties"
Shortcut = +{F3}
End
End
Begin VB.Menu mnuInsert
Caption = "&Insert"
Begin VB.Menu mnuInsertTimeDate
Caption = "Time and &Date..."
Shortcut = ^D
End
Begin VB.Menu mnuInsertBar0
Caption = "-"
End
Begin VB.Menu mnuInsertPicture
Caption = "&Picture..."
Shortcut = +{INSERT}
End
Begin VB.Menu mnuInsertBar1
Caption = "-"
End
Begin VB.Menu mnuInsertTextFile
Caption = "&Text File..."
End
Begin VB.Menu mnuInsertPathandFile
Caption = "Path and &File"
End
Begin VB.Menu mnuInsertBar2
Caption = "-"
End
Begin VB.Menu mnuInsertSymbols
Caption = "&Symbols..."
Shortcut = ^U
End
End
Begin VB.Menu mnuFormat
Caption = "F&ormat"
Begin VB.Menu mnuFormatFont
Caption = "&Font..."
Shortcut = ^T
End
Begin VB.Menu mnuFormatBullet
Caption = "&Bullet"
Shortcut = ^B
End
Begin VB.Menu mnuFormatBar0
Caption = "-"
End
Begin VB.Menu mnuFormatUpper
Caption = "To &Upper Case"
Shortcut = ^{F5}
End
Begin VB.Menu mnuFormatLower
Caption = "To &Lower Case"
Shortcut = +{F5}
End
Begin VB.Menu mnuFormatBar1
Caption = "-"
End
Begin VB.Menu mnuFormatScript
Caption = "&Script"
Begin VB.Menu mnuFormatScriptNoScript
Caption = "&No Scripting"
End
Begin VB.Menu mnuFormatScriptSuperScript
Caption = "&SuperScript"
End
Begin VB.Menu mnuFormatScriptSubScript
Caption = "S&ubScript"
End
End
Begin VB.Menu mnuFormatBar2
Caption = "-"
End
Begin VB.Menu mnuFormatIndent
Caption = "Increase &Indent"
Shortcut = ^{F1}
End
Begin VB.Menu mnuFormatOutdent
Caption = "&Reduce Indent"
Shortcut = +{F1}
End
End
Begin VB.Menu mnuTools
Caption = "&Tools"
Begin VB.Menu mnuToolsOptions
Caption = "&Options..."
End
End
Begin VB.Menu mnuWindow
Caption = "&Window"
WindowList = -1 'True
Begin VB.Menu mnuWindowNewWindow
Caption = "&New Window"
End
Begin VB.Menu mnuWindowBar0
Caption = "-"
End
Begin VB.Menu mnuWindowCascade
Caption = "&Cascade"
End
Begin VB.Menu mnuWindowTileHorizontal
Caption = "Tile &Horizontal"
End
Begin VB.Menu mnuWindowTileVertical
Caption = "Tile &Vertical"
End
Begin VB.Menu mnuWindowArrangeIcons
Caption = "&Arrange Icons"
End
Begin VB.Menu mnuWindowBar1
Caption = "-"
End
Begin VB.Menu mnuWindowMinimizeAll
Caption = "&Minimize All"
End
Begin VB.Menu mnuWindowRestoreAll
Caption = "&Restore All"
End
End
Begin VB.Menu mnuHelp
Caption = "&Help"
Begin VB.Menu mnuHelpContents
Caption = "&Contents"
Shortcut = {F1}
End
Begin VB.Menu mnuHelpIndex
Caption = "&Index"
End
Begin VB.Menu mnuHelpSearch
Caption = "&Search"
End
Begin VB.Menu mnuHelpBar0
Caption = "-"
End
Begin VB.Menu mnuHelpTipoftheDay
Caption = "Tip of the &Day"
End
Begin VB.Menu mnuHelpBar1
Caption = "-"
End
Begin VB.Menu mnuHelpAbout
Caption = "&About ElitePad..."
End
End
Begin VB.Menu mnuPop
Caption = "Popup"
Visible = 0 'False
Begin VB.Menu mnuPopUndo
Caption = "&Undo"
End
Begin VB.Menu mnuPopBar0
Caption = "-"
End
Begin VB.Menu mnuPopCut
Caption = "Cu&t"
End
Begin VB.Menu mnuPopCopy
Caption = "&Copy"
End
Begin VB.Menu mnuPopPaste
Caption = "&Paste"
End
Begin VB.Menu mnuPopBar1
Caption = "-"
End
Begin VB.Menu mnuPopDelete
Caption = "&Delete"
End
Begin VB.Menu mnuPopSelectAll
Caption = "&Select All"
End
Begin VB.Menu mnuPopBar2
Caption = "-"
End
Begin VB.Menu mnuPopCase
Caption = "C&hange Case"
Begin VB.Menu mnuPopCaseUpper
Caption = "&Upper Case"
End
Begin VB.Menu mnuPopCaseLower
Caption = "&Lower Case"
End
End
End
End
Attribute VB_Name = "frmMDI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************'
' ELITEPAD '
' Written by '
' Andrea Batina '
' '
' You are free to use the source code in your private, '
' non-commercial, projects without permission. If you want '
' to use this code in commercial projects EXPLICIT permission '
' from the author is required. '
' '
' '
' Copyright ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -