📄 form1.frm
字号:
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 9945
ClientLeft = 165
ClientTop = 825
ClientWidth = 13980
LinkTopic = "Form1"
ScaleHeight = 9945
ScaleWidth = 13980
StartUpPosition = 3 '窗口缺省
Begin MSComDlg.CommonDialog CommonDialog2
Left = 12360
Top = 3480
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 12360
Top = 2760
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.ImageList ImageList2
Left = 12240
Top = 1800
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0112
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0224
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0336
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0448
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":055A
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":066C
Key = ""
EndProperty
EndProperty
End
Begin RichTextLib.RichTextBox RichTextBox1
Height = 8055
Left = 0
TabIndex = 2
Top = 840
Width = 12135
_ExtentX = 21405
_ExtentY = 14208
_Version = 393217
TextRTF = $"Form1.frx":0B86
End
Begin MSComctlLib.ImageList ImageList1
Left = 12960
Top = 1080
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 11
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0C23
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0D35
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0E47
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0F59
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":106B
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":117D
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":128F
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":13A1
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":14B3
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":15C5
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":1A17
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 9570
Width = 13980
_ExtentX = 24659
_ExtentY = 661
Style = 1
SimpleText = "欢迎使用！"
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 1
Bevel = 0
Object.Width = 24130
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 0
Top = 0
Width = 13980
_ExtentX = 24659
_ExtentY = 741
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "新建"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "打开"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "保存"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "查找"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "剪切"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "复制"
ImageIndex = 7
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "粘贴"
ImageIndex = 8
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "删除"
ImageIndex = 11
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar2
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 3
Top = 420
Width = 13980
_ExtentX = 24659
_ExtentY = 741
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "粗体"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "斜体"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "下划线"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "颜色"
ImageIndex = 7
EndProperty
EndProperty
Begin VB.ComboBox Combo1
Height = 300
Left = 1560
TabIndex = 5
Top = 0
Width = 2895
End
Begin VB.ComboBox Combo2
Height = 300
Left = 5040
TabIndex = 4
Top = 0
Width = 1215
End
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuNew
Caption = "新建(&N)"
Shortcut = ^N
End
Begin VB.Menu mnuOpen
Caption = "打开(&O)"
Shortcut = ^O
End
Begin VB.Menu mnuSave
Caption = "保存(&S)"
Shortcut = ^S
End
Begin VB.Menu mnuSaveAs
Caption = "另存为(&A)"
End
Begin VB.Menu mnuPrint
Caption = "打印(&P)"
Shortcut = ^P
End
Begin VB.Menu mnuPrinter
Caption = "打印机设置(&U)"
End
Begin VB.Menu mnuExit
Caption = "退出(&X)"
End
End
Begin VB.Menu mnuEdit
Caption = "编辑(&E)"
Begin VB.Menu mnuCut
Caption = "剪切(&X)"
Shortcut = ^X
End
Begin VB.Menu mnuCopy
Caption = "复制(&C)"
Shortcut = ^C
End
Begin VB.Menu mnuPaste
Caption = "粘贴(&V)"
Shortcut = ^V
End
Begin VB.Menu mnuDel
Caption = "删除(&A)"
Shortcut = {DEL}
End
Begin VB.Menu mnuSelectAll
Caption = "全选(&L)"
Shortcut = ^A
End
Begin VB.Menu mnuFind
Caption = "查找(&F)"
Shortcut = ^F
End
Begin VB.Menu mnuContinueFind
Caption = "继续查找(&N)"
Shortcut = {F3}
End
Begin VB.Menu mnuReplace
Caption = "替换(&E)"
Shortcut = ^H
End
Begin VB.Menu mnuContinueReplace
Caption = "继续替换"
End
End
Begin VB.Menu mnuFine
Caption = "修饰(&X)"
Begin VB.Menu font
Caption = "字体"
End
Begin VB.Menu mnuIndent
Caption = "缩进或不缩进"
End
Begin VB.Menu mnuBullet
Caption = "加或删重点"
End
Begin VB.Menu mnuSign
Caption = "角标"
Begin VB.Menu mnuUp
Caption = "上角标"
End
Begin VB.Menu mnuDown
Caption = "下角标"
End
Begin VB.Menu mnuNormal
Caption = "恢复正常"
End
End
End
Begin VB.Menu chakan
Caption = "查看(&V)"
Begin VB.Menu ToolBar
Caption = "工具栏(&T)"
End
Begin VB.Menu geshilan
Caption = "格式栏(&F)"
End
Begin VB.Menu zhuangtailan
Caption = "状态栏(&S)"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim gstrFileName As String
Dim gblnChange As Boolean
Dim gblnIndent As Boolean
Dim gstrFind As String
Dim gvntPos
Dim gstrReplace As String
Dim gvntSize
Dim Button As Integer
Private Sub Combo1_Click()
RichTextBox1.SelFontName = Combo1.Text
End Sub
Private Sub Combo2_Click()
RichTextBox1.SelFontSize = Val(Combo2.Text)
End Sub
Private Sub font_Click()
CommonDialog1.FontName = RichTextBox1.SelFontName
CommonDialog1.Flags = FontsConstants.cdlCFScreenFonts
CommonDialog1.FontStrikethru = RichTextBox1.SelStrikeThru
CommonDialog1.FontBold = RichTextBox1.SelBold
CommonDialog1.FontItalic = RichTextBox1.SelItalic
CommonDialog1.FontUnderline = RichTextBox1.SelUnderline
CommonDialog1.FontSize = RichTextBox1.SelFontSize
CommonDialog1.FontStrikethru = RichTextBox1.SelStrikeThru
CommonDialog1.Color = RichTextBox1.SelColor
CommonDialog1.ShowFont
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -