📄 pmain.frm
字号:
Picture = "PMAIN.frx":3488B
Key = ""
Object.Tag = "删除"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "PMAIN.frx":349E7
Key = ""
Object.Tag = "打印预览"
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog CommonDialog3
Left = 9030
Top = 4740
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
DefaultExt = "txt"
Filter = "文本|*.txt"
FilterIndex = 1
End
Begin RichTextLib.RichTextBox RichTextBox2
Height = 585
Left = 7290
TabIndex = 13
Top = 5100
Visible = 0 'False
Width = 945
_ExtentX = 1667
_ExtentY = 1032
_Version = 393217
BackColor = 15724527
BorderStyle = 0
ScrollBars = 2
TextRTF = $"PMAIN.frx":36B69
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin RichTextLib.RichTextBox RichTextBox1
Height = 945
Left = 4710
TabIndex = 22
Top = 3810
Width = 1185
_ExtentX = 2090
_ExtentY = 1667
_Version = 393217
BackColor = 7008470
Enabled = -1 'True
HideSelection = 0 'False
ScrollBars = 3
TextRTF = $"PMAIN.frx":36DF3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ComctlLib.ImageList ImageList1
Left = 10320
Top = 6420
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 14
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":3707D
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":3718F
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":372A1
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":373B3
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":37A2D
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":380A7
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":381B9
Key = ""
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":38833
Key = ""
EndProperty
BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":38945
Key = ""
EndProperty
BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":38A57
Key = ""
EndProperty
BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":38B69
Key = ""
EndProperty
BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":38C7B
Key = ""
EndProperty
BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":38D8D
Key = ""
EndProperty
BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "PMAIN.frx":38E9F
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu mnuEdit
Caption = "&Edit"
Visible = 0 'False
Begin VB.Menu FHF
Caption = "此处换行"
End
Begin VB.Menu FFRG
Caption = "插入空格"
End
Begin VB.Menu NC53
Caption = "-"
End
Begin VB.Menu mnuUndo
Caption = "撤消"
Shortcut = ^Z
End
Begin VB.Menu mnuRedo
Caption = "重复 "
Shortcut = ^Y
End
Begin VB.Menu mnuSep0
Caption = "-"
End
Begin VB.Menu mnuCut
Caption = "剪切"
Shortcut = ^X
End
Begin VB.Menu mnuCopy
Caption = "复制"
Shortcut = ^C
End
Begin VB.Menu mnuPaste
Caption = "粘贴"
Shortcut = ^V
End
Begin VB.Menu mnuDelete
Caption = "删除"
Shortcut = {DEL}
End
Begin VB.Menu mnuSep1
Caption = "-"
End
Begin VB.Menu mnuSelectAll
Caption = "全选 "
Shortcut = ^A
End
Begin VB.Menu nc44
Caption = "-"
End
Begin VB.Menu BCL
Caption = "背景色选择"
End
Begin VB.Menu BMR
Caption = "默认前景"
End
Begin VB.Menu NC00
Caption = "-"
End
Begin VB.Menu NLOAD
Caption = "打开文件"
End
Begin VB.Menu NSAVE
Caption = "保存文件"
End
Begin VB.Menu NUNPRINT
Caption = "打印预览"
End
Begin VB.Menu REDTEXT
Caption = "文本朗读精灵"
Visible = 0 'False
End
End
End
Attribute VB_Name = "PMAIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private X1 As Long, Y1 As Long
Private trapUndo As Boolean 'flag to indicate whether actions should be trapped
Private UndoStack As New Collection 'collection of undo elements
Private RedoStack As New Collection 'collection of redo elements
Dim db As Database
Dim rs As Recordset
Dim NHB As String
Dim cnhb As String
Dim NHBa As String
Private Sub BCL_Click()
On Error Resume Next
CM1.ShowColor
RichTextBox1.BackColor = CM1.Color
End Sub
Private Sub BMR_Click()
On Error Resume Next
RichTextBox1.BackColor = &H6AF0D6
End Sub
Private Sub cboFontName_Click()
On Error Resume Next
RichTextBox1.SelFontName = cboFontName.Text
End Sub
Private Sub cboFontSize_Click()
On Error Resume Next
RichTextBox1.SelFontSize = cboFontSize.Text
cboFontSize.Text = RichTextBox1.SelFontSize
End Sub
Private Sub Check1_Click()
On Error Resume Next
If Check1.Value = 0 Then TabStrip1.Visible = True: TreeView1.Visible = True: TabStrip2.Visible = False: TreeView2.Visible = False: Check1.ForeColor = &HFF0000: Check1.Caption = "模式一"
If Check1.Value = 1 Then TabStrip2.Visible = True: TreeView2.Visible = True: TabStrip1.Visible = False: TreeView1.Visible = False: Check1.ForeColor = &HFF00FF: Check1.Caption = "模式二"
End Sub
Private Sub cmdRedo_Click()
On Error Resume Next
Redo
End Sub
Private Sub cmdUndo_Click()
On Error Resume Next
Undo
End Sub
Private Sub Command1_Click()
On Error Resume Next
RichTextBox1.SelText = Date
End Sub
Private Sub Command10_Click()
On Error Resume Next
RichTextBox1.SelText = Command10.Caption
End Sub
Private Sub Command11_Click()
On Error Resume Next
RichTextBox1.SelText = Command11.Caption
End Sub
Private Sub Command12_Click()
On Error Resume Next
RichTextBox1.SelText = Command12.Caption
End Sub
Private Sub Command13_Click()
On Error Resume Next
RichTextBox1.SelText = Command13.Caption
End Sub
Private Sub Command14_Click()
On Error Resume Next
RichTextBox1.SelText = Command14.Caption
End Sub
Private Sub Command15_Click()
On Error Resume Next
RichTextBox1.SelText = Command15.Caption
End Sub
Private Sub Command16_Click()
On Error Resume Next
RichTextBox1.SelText = Command16.Caption
End Sub
Private Sub Command17_Click()
On Error Resume Next
RichTextBox1.SelText = Command17.Caption
End Sub
Private Sub Command18_Click()
On Error Resume Next
RichTextBox1.SelText = Command18.Caption
End Sub
Private Sub Command19_Click()
On Error Resume Next
RichTextBox1.SelText = Command19.Caption
End Sub
Private Sub Command2_Click()
On Error Resume Next
RichTextBox1.SelText = Command2.Caption
End Sub
Private ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -