ä½ è¿æ¯åä¸ä¸ªç¼è¾å¨ï¼å°ä½ è¦åçè¾è¿å»å°±å¯ä»¥ï¼å½ç¶ä½ ä¹å¯ä»¥æå¼textææ¡£ãæ¥éª¤ç»ä½ ãèªå·±å
æ¥éª¤ä¸ï¼ç»å¶çé¢ã
代ç ã
注éï¼å£°ææ¥æ¾åé
Dim sFind As String
注éï¼å£°ææ件类å
Dim FileType, FiType As String
注éï¼åå§åç¨åº
Private Sub Form_Load()
注éï¼è®¾ç½®ç¨åºå¯å¨æ¶ç大å°
Me.Height = 6000
Me.Width = 9000
End Sub
Private Sub Form_Resize()
On Error Resume Next 注éï¼åºéå¤ç
RichTextBox1.Top=20
RichTextBox1.Left=20
RichTextBox1.Height = ScaleHeight-40
RichTextBox1.Width = ScaleWidth-40
End Sub
注éï¼æ°å»ºæ件
Private Sub mnuNew_Click()
RichTextBox1.Text = "" 注éï¼æ¸
空ææ¬æ¡
FileName = "æªå½å"
Me.Caption = FileName
End Sub
注éï¼æå¼æ件
Private Sub mnuOpen_Click()
CommonDialog1.Filter = "ææ¬ææ¡£(*.txt)|*.txt|RTFææ¡£(*.rtf)|*.rtf|æææ件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = "" 注éï¼æ¸
空ææ¬æ¡
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "è¶
级记äºæ¬ï¼" & FileName
End Sub
注éï¼ä¿åæ件
Private Sub mnuSave_Click()
CommonDialog1.Filter = "ææ¬ææ¡£(*.txt)|*.txt|RTFææ¡£(*.rtf)|*.rtf|æææ件(*.*)|*.*"
CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(Right(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
Me.Caption = "è¶
级记äºæ¬ï¼" & FileName
End Sub
注éï¼éåº
Private Sub mnuExit_Click()
End
End Sub
注éï¼å¤å¶
Private Sub mnuCopy_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
End Sub
注éï¼åªå
Private Sub mnuCut_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = ""
End Sub
注éï¼å
¨é
Private Sub mnuSelectAll_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
End Sub
注éï¼ç²è´´
Private Sub mnuPaste_Click()
RichTextBox1.SelText = Clipboard.GetText
End Sub
温馨提示:答案为网友推荐,仅供参考