其实 RichTextBox 使用不复杂,说简单一些,它只是 Text 控件的扩展, Text 控件不能做的一些事 RichTextBox 完全可以做到,例如保存和打开文本文件。下面是一个读/写文件的例子:
新建一个窗体,
放置一个 RichTextBox 控件,命名为 rtfText;
放置两个命令按钮,分别命名为 cmdSave 和 cmdOpen,Caption 属性分别为"保存"和"打开";
调整好三个控件的位置,rtfText 在窗体顶部,两个按钮在窗体底部。
源代码:
Private Sub cmdSave_Click()
'保存
Dim strFilename As String
strFilename = InputBox("保存文件名:","保存")
If Trim(strFilename) = "" Then Exit Sub
rtfText.SaveFile strFilename '调用 rtfText 控件的 SaveFile 过程来保存文件
MsgBox "保存完毕!", vbInformation, "提示"
End Sub
Private Sub cmdOpen_Click()
'打开
Dim strFilename As String
strFilename = InputBox("打开文件名:","打开")
If Trim(strFilename) = "" Then Exit Sub
'判断文件是否存在
If Dir(strFilename) = "" Then '不存在
MsgBox "文件不存在!",vbExclamation,"错误"
Exit Sub
End If
rtfText.LoadFile strFilename '调用 rtfText 控件的 LoadFile 过程来打开文件
'当上面这一条语句调用之后,rtfText 控件已自动读取输入的文件并显示文件内容了
End Sub