📄 frmmain.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm frmMain
Appearance = 0 'Flat
AutoShowChildren= 0 'False
BackColor = &H8000000C&
Caption = "Notepad Template"
ClientHeight = 4020
ClientLeft = 1425
ClientTop = 1770
ClientWidth = 7365
LinkTopic = "MDIForm1"
LockControls = -1 'True
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar
Align = 1 'Align Top
Height = 465
Left = 0
TabIndex = 1
Top = 0
Width = 7365
_ExtentX = 12991
_ExtentY = 820
ButtonWidth = 714
ButtonHeight = 661
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 16
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = "NewDoc"
Description = ""
Object.ToolTipText = "New Document"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = "OpenDoc"
Description = ""
Object.ToolTipText = "Open Document"
Object.Tag = ""
ImageIndex = 2
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = "SaveDoc"
Description = ""
Object.ToolTipText = "Save Document"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = ""
Description = ""
Object.ToolTipText = ""
Object.Tag = ""
Style = 3
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = "PrintDoc"
Description = ""
Object.ToolTipText = "Print Document"
Object.Tag = ""
ImageIndex = 4
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = ""
Description = ""
Object.ToolTipText = ""
Object.Tag = ""
Style = 3
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = "EditCut"
Description = ""
Object.ToolTipText = "Cut to clipboard"
Object.Tag = ""
ImageIndex = 5
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = "EditCopy"
Description = ""
Object.ToolTipText = "Copy to clipboard"
Object.Tag = ""
ImageIndex = 6
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = "EditPaste"
Description = ""
Object.ToolTipText = "Paste to clipboard"
Object.Tag = ""
ImageIndex = 7
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = ""
Description = ""
Object.ToolTipText = ""
Object.Tag = ""
Style = 3
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = "Find"
Description = ""
Object.ToolTipText = "Find"
Object.Tag = ""
ImageIndex = 8
EndProperty
BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = ""
Description = ""
Object.ToolTipText = ""
Object.Tag = ""
Style = 3
EndProperty
BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = "Cascade"
Description = ""
Object.ToolTipText = "Cascade windows"
Object.Tag = ""
ImageIndex = 11
EndProperty
BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = "Tile"
Description = ""
Object.ToolTipText = "Tile windows"
Object.Tag = ""
ImageIndex = 12
EndProperty
BeginProperty Button15 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = ""
Description = ""
Object.ToolTipText = ""
Object.Tag = ""
Style = 3
EndProperty
BeginProperty Button16 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = ""
Key = "Stop"
Description = ""
Object.ToolTipText = "Stop Current Process"
Object.Tag = ""
ImageIndex = 14
EndProperty
EndProperty
BorderStyle = 1
End
Begin VB.PictureBox Status
Align = 2 'Align Bottom
BackColor = &H00C0C0C0&
Height = 360
Left = 0
ScaleHeight = 300
ScaleWidth = 7305
TabIndex = 0
Top = 3660
Width = 7365
Begin ComctlLib.ProgressBar Progress
Height = 225
Left = 5100
TabIndex = 2
Top = 60
Visible = 0 'False
Width = 2205
_ExtentX = 3889
_ExtentY = 397
_Version = 327682
Appearance = 1
End
End
Begin ComctlLib.ImageList ImageList1
Left = 6780
Top = 450
_ExtentX = 1005
_ExtentY = 1005
ImageWidth = 20
ImageHeight = 19
MaskColor = 128
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 14
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":0000
Key = "NewDoc"
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":04C6
Key = "OpenDoc"
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":098C
Key = "SaveDoc"
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":0E52
Key = "PrintDoc"
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":1318
Key = "EditCut"
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":17DE
Key = "EditCopy"
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":1CA4
Key = "EditPaste"
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":216A
Key = "EditFind"
EndProperty
BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":2630
Key = "EditFindNext"
EndProperty
BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":2AF6
Key = "EditReplace"
EndProperty
BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":2FBC
Key = "Cascade"
EndProperty
BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":3482
Key = "Tile"
EndProperty
BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":3948
Key = "StopOn"
EndProperty
BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":3E0E
Key = "StopOff"
EndProperty
EndProperty
End
Begin VB.Menu mnuFile
Caption = "&File"
Begin VB.Menu mnuFileNew
Caption = "&New"
Shortcut = ^N
End
Begin VB.Menu mnuFileOpen
Caption = "&Open"
Shortcut = ^O
End
Begin VB.Menu mnuFileSep1
Caption = "-"
End
Begin VB.Menu mnuFileSave
Caption = "&Save"
Shortcut = ^S
End
Begin VB.Menu mnuFileSaveAs
Caption = "Save &As"
Shortcut = ^A
End
Begin VB.Menu mnuFileSep3
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "E&xit"
End
Begin VB.Menu mnuFileSep4
Caption = "-"
End
Begin VB.Menu mnuFileList
Caption = ""
Index = 0
Visible = 0 'False
End
Begin VB.Menu mnuFileList
Caption = ""
Index = 1
Visible = 0 'False
End
Begin VB.Menu mnuFileList
Caption = ""
Index = 2
Visible = 0 'False
End
Begin VB.Menu mnuFileList
Caption = ""
Index = 3
Visible = 0 'False
End
Begin VB.Menu mnuFileList
Caption = ""
Index = 4
Visible = 0 'False
End
Begin VB.Menu mnuFileList
Caption = ""
Index = 5
Visible = 0 'False
End
Begin VB.Menu mnuFileList
Caption = ""
Index = 6
Visible = 0 'False
End
Begin VB.Menu mnuFileList
Caption = ""
Index = 7
Visible = 0 'False
End
Begin VB.Menu mnuFileList
Caption = ""
Index = 8
Visible = 0 'False
End
Begin VB.Menu mnuFileList
Caption = ""
Index = 9
Visible = 0 'False
End
End
Begin VB.Menu mnuEdit
Caption = "&Edit"
Begin VB.Menu mnuEditCut
Caption = "&Cut"
Shortcut = ^X
End
Begin VB.Menu mnuEditCopy
Caption = "C&opy"
Shortcut = ^C
End
Begin VB.Menu mnuEditPaste
Caption = "&Paste"
Shortcut = ^V
End
Begin VB.Menu mnuEditSep1
Caption = "-"
End
Begin VB.Menu mnuEditFind
Caption = "&Find"
Shortcut = ^F
End
End
Begin VB.Menu mnuWin
Caption = "&Window"
WindowList = -1 'True
Begin VB.Menu mnuWinCascade
Caption = "&Cascade"
End
Begin VB.Menu mnuWinVTile
Caption = "&Vertical Tile"
End
Begin VB.Menu mnuWinHTile
Caption = "&Horizontal Tile"
End
Begin VB.Menu mnuWinArrange
Caption = "&Arrange Icons"
End
Begin VB.Menu mnuFileSep2
Caption = "-"
End
Begin VB.Menu mnuFileClose
Caption = "Clo&se"
End
Begin VB.Menu mnuFileCloseAll
Caption = "Close A&ll"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public UserMsgChoice As String
Public MsgMode As String 'Resolves who called msg dialog
Public ReplaceFlag As Boolean 'Tells btnFind_Click() whether or not
'display its default message at end of
'search (btnAll_Click() has its own)
Dim Files(9) As String
Public Sub AddFile(Filename As String)
Dim Flag As Boolean
Dim NextPos As Integer
'init var to known value (outside max array size)
NextPos = 10
'cycle through array
For x = 0 To 9
'look for filename, flag true if found
If Files(x) = Filename Then
Flag = True
End If
'look for open space, change NextPos if found
If NextPos = 10 And Files(x) = "" Then
NextPos = x
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -