方法1:
RichtextBox的自带参数:savefile
保存为rtf文件
richtextbox1.savefile"c:\text.txt"
保存为txt文件
richtextbox1.savefile "c:\text.txt",rtftext
方法2:
用open
open "c:\1.txt " for output as #1
print #1 ,richtextbox1.text
close #1
Sub Command1_Click()
RichTextBox1.SaveFile "c:\richtext.txt", rtfText
End Sub