📄 frmmain
字号:
VERSION 4.00
Begin VB.MDIForm frmMain
Appearance = 0 'Flat
AutoShowChildren= 0 'False
BackColor = &H8000000C&
Caption = "Notepad Template"
ClientHeight = 4020
ClientLeft = 1425
ClientTop = 1770
ClientWidth = 7365
Height = 4710
Left = 1365
LinkTopic = "MDIForm1"
LockControls = -1 'True
Top = 1140
Width = 7485
WindowState = 2 'Maximized
Begin Threed.SSPanel Status
Align = 2 'Align Bottom
Height = 360
Left = 0
TabIndex = 0
Top = 3660
Width = 7365
_Version = 65536
_ExtentX = 12991
_ExtentY = 635
_StockProps = 15
BackColor = 12632256
BorderWidth = 1
BevelInner = 1
Begin ComctlLib.ProgressBar Progress
Height = 225
Left = 5100
TabIndex = 2
Top = 60
Visible = 0 'False
Width = 2205
_Version = 65536
_ExtentX = 3889
_ExtentY = 397
_StockProps = 192
Appearance = 1
End
End
Begin ComctlLib.ImageList ImageList1
Left = 6780
Top = 450
_Version = 65536
_ExtentX = 1005
_ExtentY = 1005
_StockProps = 1
ImageWidth = 20
ImageHeight = 19
MaskColor = 128
NumImages = 12
i1 = "frmmain.frx":0000
i2 = "frmmain.frx":056F
i3 = "frmmain.frx":0ADE
i4 = "frmmain.frx":104D
i5 = "frmmain.frx":15C0
i6 = "frmmain.frx":1B2F
i7 = "frmmain.frx":20A2
i8 = "frmmain.frx":2615
i9 = "frmmain.frx":2B88
i10 = "frmmain.frx":30FF
i11 = "frmmain.frx":3673
i12 = "frmmain.frx":3BE3
End
Begin ComctlLib.Toolbar Toolbar
Align = 1 'Align Top
Height = 450
Left = 0
TabIndex = 1
Top = 0
Width = 7365
_Version = 65536
_ExtentX = 12991
_ExtentY = 794
_StockProps = 96
BorderStyle = 1
ImageList = "ImageList1"
ButtonWidth = 714
ButtonHeight = 661
NumButtons = 16
i1 = "frmmain.frx":4153
i2 = "frmmain.frx":4302
i3 = "frmmain.frx":44B1
i4 = "frmmain.frx":4660
i5 = "frmmain.frx":47FF
i6 = "frmmain.frx":49B2
i7 = "frmmain.frx":4B51
i8 = "frmmain.frx":4D04
i9 = "frmmain.frx":4EBB
i10 = "frmmain.frx":5072
i11 = "frmmain.frx":5212
i12 = "frmmain.frx":53BA
i13 = "frmmain.frx":556A
i14 = "frmmain.frx":5712
i15 = "frmmain.frx":58B2
i16 = "frmmain.frx":5A62
AlignSet = -1 'True
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
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
Begin VB.Menu mnuEditFindNext
Caption = "Find &Next"
Shortcut = {F3}
End
Begin VB.Menu mnuEditReplace
Caption = "&Replace"
Shortcut = ^R
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_Creatable = False
Attribute VB_Exposed = False
Public UserSaveChoice As String
Private Sub MDIForm_Load()
mnuFileSave.Enabled = False
mnuFileSaveAs.Enabled = False
mnuEditCut.Enabled = False
mnuEditCopy.Enabled = False
mnuEditPaste.Enabled = False
mnuEditFind.Enabled = False
mnuEditFindNext.Enabled = False
mnuEditReplace.Enabled = False
mnuWinArrange.Enabled = False
mnuWinCascade.Enabled = False
mnuWinHTile.Enabled = False
mnuWinVTile.Enabled = False
'init frmFile and load into memory
frmFile.Filter = "All Files *.*|*.*|Hypertext Files *.htm|*.htm|Plain Text Files *.txt|*.txt"
frmFile.FilterIndex = 0
Load frmFile
End Sub
Private Sub MDIForm_Resize()
Progress.Move Me.ScaleWidth - Progress.Width - 75
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
'Unload all MDI child forms
While Forms.Count > 2
Unload frmMain.ActiveForm
Wend
'unload file form
Unload frmFile
'this form's unload has already been called as evidence
'by this event
End Sub
Private Sub mnuEditCopy_Click()
EditCopy
End Sub
Private Sub mnuEditCut_Click()
EditCut
End Sub
Private Sub mnuEditFind_Click()
ReplaceFlag = False
frmSearch.Show 1
End Sub
Private Sub mnuEditFindNext_Click()
EditFind
End Sub
Private Sub mnuFileCloseAll_Click()
While Forms.Count > 2
Unload frmMain.ActiveForm
If UserSaveChoice = "Cancel" Then
UserSaveChoice = ""
Exit Sub
End If
Wend
UserSaveChoice = 0
End Sub
Private Sub mnuFileExit_Click()
End
End Sub
Private Sub mnuFileNew_Click()
Dim F As Form
Static Counter As Integer
Counter = Counter + 1
Set F = New frmText
F.Caption = "New-" & Format(Counter, "000")
F.Show
F.Changed = False
End Sub
Private Sub mnuFileOpen_Click()
Dim F As frmFile
Set F = frmFile
F.Filter = "All Files *.*|*.*|Hypertext Files *.htm|*.htm|Plain Text Files *.txt|*.txt"
F.FilterIndex = 1
F.Action = 0
F.Init
End Sub
Public Sub mnuFileSave_Click()
Dim F As Form
Set F = frmMain.ActiveForm
Dim Filenum As Integer
'if form is empty or has not changed then exit
If F.Text1 = "" Or F.Changed = False Then Exit Sub
'check for newly created form
If Left$(F.Caption, 3) = "NEW" Then
'if form is newly created call File Save As
mnuFileSaveAs_Click
Else
'if form was opened from disk
Filenum = FreeFile
Open F.Caption For Output As Filenum
Print #Filenum, F.Text1
Close Filenum
End If
End Sub
Private Sub mnuFileSaveAs_Click()
Dim F As frmFile
Set F = frmFile
F.Filter = "All Files *.*|*.*|Hypertext Files *.htm|*.htm|Plain Text Files *.txt|*.txt"
F.FilterIndex = 1
F.Action = 1
F.Init
End Sub
Private Sub mnuWinArrange_Click()
frmMain.Arrange 3
End Sub
Private Sub mnuWinCascade_Click()
frmMain.Arrange 0
End Sub
Private Sub mnuWinHTile_Click()
frmMain.Arrange 1
End Sub
Private Sub mnuWinVTile_Click()
frmMain.Arrange 2
End Sub
Private Sub Toolbar_ButtonClick(ByVal Button As Button)
Select Case Button.Key
Case "OpenDoc"
mnuFileOpen_Click
Case "NewDoc"
mnuFileNew_Click
Case "SaveDoc"
mnuFileSave_Click
Case "Cascade"
mnuWinCascade_Click
Case "Tile"
mnuWinVTile_Click
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -