怎样可以把richtextbox控件其中的内容另存为、打印、打开？

Question

SaveFile 方法
      把 RichTextBox 控件的内容存入文件。不支持命名的参数。语法object.SaveFile(pathname, filetype)SaveFile 方法的语法包含下面部分：部分 描述 
object 必需的。对象表达式，其值是“应用于”列表中的一个对象。 
pathname 必需的。字符串表达式，它定义保存控件内容文件的路径和文件名。 
filetype 可选的。整数或常数，按照“设置值”中的描述确定加载文件的类型。 
设置值filetype 的设置值是：常数 值 描述 
rtfRTF 0 （缺省）RTF。RichTextBox 控件把它的内容存为一个 .rtf 文件。 
rtfText 1 文本。RichTextBox 控件把它的内容存为一个文本文件。 
说明也可用 Visual Basic 的 Write 函数和 RichTextBox 控件的 TextRTF 属性和 SelRTF 属性写 .rtf 文件。例如，可按如下方式把 RichTextBox 控件中突出显示的内容存为 .rtf 文件。Open "mytext.rtf" For Output As 1

Answer 1

LoadFile 方法
      向 RichTextBox 控件加载一个 .rtf 文件或文本文件。不支持命名的参数。语法object.LoadFile pathname, filetypeLoadFile 方法的语法包含下面部分：部分 描述 
object 必需的。对象表达式，其值是“应用于”列表中的一个对象。 
pathname 必需的。字符串表达式，它定义加载控件的文件路径和文件名。 
filetype 可选的。整数或常数，按照“设置值”中的描述确定装入文件的类型。 
设置值filetype 的设置值是：常数 值 描述 
rtfRTF 0 （缺省）RTF。被加载的文件必须是一个合法的 .rtf 文件。 
rtfText 1 文本。RichTextBox 控件可加载任一文本文件。 
说明当用 LoadFile 方法加载一个文件时，加载文件的内容将取代 RichTextBox 控件的全部内容。这将使 Text 和 RTFText 属性的值改变。也可用 Visual Basic 的 Input 函数和 RichTextBox 控件的 TextRTF 和 SelRTF 属性读取 .rtf 文件。例如，可按如下方式加载一个 .rtf 文件的内容到 RichTextBox 控件中：Open "mytext.rtf" For Input As 1RichTextBox1.TextRTF = Strconv(InputB$(LOF(1), 1), vbUnicode)

Answer 2

SelPrint 方法
      将 RichTextBox 控件中格式化文本发送给设备进行打印。语法object.SelPrint(hdc)SelPrint 方法的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
hdc 设备描述体，是准备用来打印控件内容的设备。 
说明如果在 RichTextBox 控件中有选定的文本，则 SelPrint 方法仅将选定的文本发送给目标设备。如果没有选定的文本，则 RichTextBox 的全部内容都将发送给目标设备。SelPrint 方法并不打印 RichTextBox 控件中的文本。而是将格式化文本的一个备份发送给可以打印这个文本的设备。例如，用下列代码可将文本发送给 Printer 对象：RichTextBox1.SelPrint(Printer.hDC)应当知道 Printer 对象的 hDC 属性是用来为 SelPrint 方法指定 设备描述体参数的。注意 如果使用 Printer 对象作为来自 RichTextBox 控件文本的接收端， 必须首先通过打印零长度字符串之类的一些东西，对 Printer 对象的设备描述体进行初始化。