📄 frmmdi.frm
字号:
EndProperty
End
Begin MSComctlLib.ImageList imgStandard
Left = 6675
Top = 3525
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 14
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":F346
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":F4A2
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":F5FE
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":F75A
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":F8B6
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":FA12
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":FDAE
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":FF0A
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":10066
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":101C2
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":1031E
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":1047A
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":10656
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMDI.frx":10832
Key = ""
EndProperty
EndProperty
End
Begin ComCtl3.CoolBar cbrRuler
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 1
Top = 1500
Width = 9945
_ExtentX = 17542
_ExtentY = 741
BandCount = 1
_CBWidth = 9945
_CBHeight = 420
_Version = "6.0.8169"
MinHeight1 = 360
Width1 = 1440
NewRow1 = 0 'False
Begin VB.PictureBox picInsert
Height = 255
Left = 1125
ScaleHeight = 195
ScaleWidth = 390
TabIndex = 17
Top = 75
Visible = 0 'False
Width = 450
End
Begin RichTextLib.RichTextBox rtfTemp
CausesValidation= 0 'False
Height = 240
Left = 825
TabIndex = 11
Top = 75
Visible = 0 'False
Width = 315
_ExtentX = 556
_ExtentY = 423
_Version = 393217
Enabled = -1 'True
TextRTF = $"frmMDI.frx":1098E
End
Begin VB.PictureBox picRuler
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 270
Left = 120
Picture = "frmMDI.frx":10A57
ScaleHeight = 270
ScaleWidth = 11490
TabIndex = 2
TabStop = 0 'False
Top = 80
Width = 11490
End
End
Begin MSComctlLib.StatusBar SB
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 18
Top = 6810
Width = 9945
_ExtentX = 17542
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 9
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 7056
MinWidth = 7056
Text = "For Help, press F1"
TextSave = "For Help, press F1"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 1058
MinWidth = 1058
Text = "Line #:"
TextSave = "Line #:"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 1588
MinWidth = 1587
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 1587
MinWidth = 1587
Text = "Total lines:"
TextSave = "Total lines:"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 1588
MinWidth = 1587
EndProperty
BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
Alignment = 1
AutoSize = 2
Object.Width = 1058
MinWidth = 1058
TextSave = "NUM"
EndProperty
BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 1
Alignment = 1
AutoSize = 2
Enabled = 0 'False
Object.Width = 1058
MinWidth = 1058
TextSave = "CAPS"
EndProperty
BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 3
Alignment = 1
AutoSize = 2
Enabled = 0 'False
Object.Width = 1058
MinWidth = 1058
TextSave = "INS"
EndProperty
BeginProperty Panel9 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
AutoSize = 2
Object.Width = 1773
MinWidth = 1766
TextSave = "12:48 AM"
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
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 mnuFileClose
Caption = "&Close"
End
Begin VB.Menu mnuFileCloseAll
Caption = "Clos&e All"
End
Begin VB.Menu mnuFileBar0
Caption = "-"
End
Begin VB.Menu mnuFileSave
Caption = "&Save"
Shortcut = ^S
End
Begin VB.Menu mnuFileSaveAs
Caption = "Save &As..."
Shortcut = {F12}
End
Begin VB.Menu mnuFileSaveAll
Caption = "Save A&ll"
Shortcut = +^{F12}
End
Begin VB.Menu mnuFileSaveSelectionAs
Caption = "Sa&ve Selection As..."
End
Begin VB.Menu mnuFileBar1
Caption = "-"
End
Begin VB.Menu mnuFileRevert
Caption = "Revert to Save&d"
End
Begin VB.Menu mnuFileBar2
Caption = "-"
End
Begin VB.Menu mnuFileManageFiles
Caption = "Mana&ge Files..."
Shortcut = {F4}
End
Begin VB.Menu mnuFileBar3
Caption = "-"
End
Begin VB.Menu mnuFilePrintConfig
Caption = "Print Configura&tion"
Begin VB.Menu mnuFilePageSetup
Caption = "Page Set&up..."
End
Begin VB.Menu mnuFilePrintSetup
Caption = "Print Se&tup..."
End
End
Begin VB.Menu mnuFilePrint
Caption = "&Print"
Shortcut = ^P
End
Begin VB.Menu mnuFileBar4
Caption = "-"
End
Begin VB.Menu mnuFileRecent
Caption = "Recent F&iles"
Begin VB.Menu mnuFileMRUTemp
Caption = "--Recent Files--"
Enabled = 0 'False
End
Begin VB.Menu mnuFileMRUItem
Caption = ""
Index = 1
Visible = 0 'False
End
Begin VB.Menu mnuFileMRUItem
Caption = ""
Index = 2
Visible = 0 'False
End
Begin VB.Menu mnuFileMRUItem
Caption = ""
Index = 3
Visible = 0 'False
End
Begin VB.Menu mnuFileMRUItem
Caption = ""
Index = 4
Visible = 0 'False
End
Begin VB.Menu mnuFileMRUItem
Caption = ""
Index = 5
Visible = 0 'False
End
Begin VB.Menu mnuFileMRUItem
Caption = ""
Index = 6
Visible = 0 'False
End
Begin VB.Menu mnuFileMRUItem
Caption = ""
Index = 7
Visible = 0 'False
End
Begin VB.Menu mnuFileMRUItem
Caption = ""
Index = 8
Visible = 0 'False
End
End
Begin VB.Menu mnuFileBar5
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "E&xit"
End
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -