📄 form1.frm
字号:
Key = ""
EndProperty
BeginProperty ListImage70 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":5B82
Key = ""
EndProperty
BeginProperty ListImage71 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":5C08
Key = ""
EndProperty
BeginProperty ListImage72 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":5CED
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 1
Top = 0
Width = 9510
_ExtentX = 16775
_ExtentY = 741
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 29
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "新建"
Object.ToolTipText = "新建"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "打开"
Object.ToolTipText = "打开"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "保存"
Object.ToolTipText = "保存"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "打印"
Object.ToolTipText = "打印"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "剪切"
Object.ToolTipText = "剪切"
ImageIndex = 5
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "复制"
Object.ToolTipText = "复制"
ImageIndex = 6
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "粘贴"
Object.ToolTipText = "粘贴"
ImageIndex = 7
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "删除"
Object.ToolTipText = "删除"
ImageIndex = 8
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "撤消"
Object.ToolTipText = "撤消"
ImageIndex = 9
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "重复"
Object.ToolTipText = "重复"
ImageIndex = 10
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "查找"
Object.ToolTipText = "查找"
ImageIndex = 11
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "粗体"
Object.ToolTipText = "粗体"
ImageIndex = 12
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "斜体"
Object.ToolTipText = "斜体"
ImageIndex = 13
EndProperty
BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "下滑线"
Object.ToolTipText = "下滑线"
ImageIndex = 14
EndProperty
BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "删除线"
Object.ToolTipText = "删除线"
ImageIndex = 16
EndProperty
BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "左对齐"
Object.ToolTipText = "左对齐"
ImageIndex = 19
EndProperty
BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "居中对齐"
Object.ToolTipText = "居中对齐"
ImageIndex = 20
EndProperty
BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "右对齐"
Object.ToolTipText = "右对齐"
ImageIndex = 21
EndProperty
BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button25 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "字体"
Object.ToolTipText = "字体"
ImageIndex = 25
EndProperty
BeginProperty Button26 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "字体颜色"
Object.ToolTipText = "字体颜色"
ImageIndex = 41
EndProperty
BeginProperty Button27 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button28 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "插入表格"
Object.ToolTipText = "插入表格"
ImageIndex = 68
EndProperty
BeginProperty Button29 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "插入图片"
Object.ToolTipText = "插入图片"
ImageIndex = 30
EndProperty
EndProperty
End
Begin RichTextLib.RichTextBox RichTextBox1
Height = 7455
Left = 0
TabIndex = 0
Top = 480
Width = 9495
_ExtentX = 16748
_ExtentY = 13150
_Version = 393217
Enabled = -1 'True
ScrollBars = 3
TextRTF = $"Form1.frx":612A
End
Begin VB.Menu File
Caption = "文件"
Begin VB.Menu New
Caption = "新建"
End
Begin VB.Menu Open
Caption = "打开"
End
Begin VB.Menu Save
Caption = "保存"
End
Begin VB.Menu Saveas
Caption = "另存为..."
End
Begin VB.Menu dump
Caption = "打印"
End
Begin VB.Menu 分隔线
Caption = "-"
End
Begin VB.Menu Exit
Caption = "退出"
End
End
Begin VB.Menu Edit
Caption = "编辑"
Begin VB.Menu all
Caption = "全选"
End
Begin VB.Menu 分隔线4
Caption = "-"
End
Begin VB.Menu Cut
Caption = "剪切"
End
Begin VB.Menu Copy
Caption = "复制"
End
Begin VB.Menu Paste
Caption = "粘贴"
End
Begin VB.Menu Del
Caption = "删除"
End
Begin VB.Menu 分隔线1
Caption = "-"
End
Begin VB.Menu charu
Caption = "插入"
Begin VB.Menu Table
Caption = "表格"
End
Begin VB.Menu Picture
Caption = "图片"
End
End
Begin VB.Menu 分隔线2
Caption = "-"
End
Begin VB.Menu Undo
Caption = "撤消"
End
Begin VB.Menu 分隔线5
Caption = "-"
End
Begin VB.Menu Find
Caption = "查找"
End
Begin VB.Menu Replace
Caption = "替换"
End
End
Begin VB.Menu Format
Caption = "格式"
Begin VB.Menu Left
Caption = "左对齐"
End
Begin VB.Menu Center
Caption = "居中"
End
Begin VB.Menu Right
Caption = "右对齐"
End
Begin VB.Menu 分隔线3
Caption = "-"
End
Begin VB.Menu Font
Caption = "字体"
End
Begin VB.Menu Color
Caption = "字体颜色"
End
End
Begin VB.Menu About
Caption = "关于"
End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim filename As String
Dim attr As Integer
Dim Changed As Boolean
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_UNDO = &HC7
Private Sub New_Click() '新建
Dim aa
If Changed = True Then '判断是否已保存当前文件
aa = MsgBox("文件未保存,是否保存", vbYesNoCancel, "文件未保存")
Select Case aa
Case 6 '是
Save_Click
Case 7 '否
Me.RichTextBox1.Text = "" '新建一个空白文档
filename = ""
Changed = False
Case 2 '取消
Exit Sub
End Select
Else: Me.RichTextBox1.Text = "" '新建一个空白文档
filename = ""
Changed = False
End If
attr = 0
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -