如何保存richtextbox的文本样式！

Question

saveFile(FileName,attr);方法，attr = 1,rtf,attr = 0 ,txt

Answer 1

SaveFile(String FileName,integer attr)
attr = 1 rtf
attr = 0 txt

Answer 2

richtextbox.savefile filepath,[vflag]

Answer 3

用 LoadFile 和 SaveFile 方法打开和保存文件
用 LoadFile 和 SaveFile 方法可以方便地为 RichTextBox 控件打开或保存 RTF 文件。要打开文件，可用 CommonDialog 控件提供路径名，如下所示：
Private Sub OpenFile()
'RichTextBox 控件的名称是“rtfData”。
'CommonDialog 名为“dlgOpenFile”。
'为文件名声明 String 变量。
'显示 “Open File”对话框，
'并将变量设置为文件名。
Dim strOpen As String   
dlgOpenFile.ShowOpen  
strOpen = dlgOpenFile.FileName
'用 LoadFile 方法打开该文件。
rtfData.LoadFile strOpen
End Sub用 SaveFile 方法，保存文件也同样简便：
Private Sub SaveFile()
Dim strNewFile As String  
dlgOpenFile.ShowSave
strNewFile = dlgOpenFile.FileName 
rtfData.SaveFile strNewFile
End Sub注意   如果文件中包含了该控件不能支持的 RTF 编码，仅相关的文本在 RichTextBox 控件中将不会出现。

Answer 4

Private Sub Command1_Click()
   CommonDialog1.ShowSave
   RichTextBox1.SaveFile CommonDialog1.Filename, rtfRTF
End Sub文件扩展名应当是Rtf