SelRTF 属性示例 该示例把 RichTextBox 控件的突出显示内容存入一个 .rtf 文件中。要试用此例,应在窗体中建立一个 RichTextBox 控件和一个 CommandButton 控件,再把下列代码粘贴到 CommandButton 控件的 Click 事件中。然后运行此例。Private Sub Command1_Click () Open "mytext.rtf" For Output As 1 Print #1, RichTextBox1.SelRTF Close 1End Sub
我也没有用过,不过msdn应该有帮助文件吧。。
返回或设置 RichTextBox 控件当前选择的文本(按 .rtf 格式)。设计时无效。语法object.SelRTF [= string]SelRTF 属性的语法包含下面部分:部分 描述
object 对象表达式,其值是“应用于”列表中的一个对象。
string .rtf 格式的字符串表达式。
说明设置 SelRTF 属性可用新字符串替换 RichTextBox 控件中任何已选定文本。如果控件中未选定文本,则此属性返回一个零长度字符串 ("")。为了写 .rtf 文件,可以将 SelRTF 属性与 Print 函数一起使用。
该示例把 RichTextBox 控件的突出显示内容存入一个 .rtf 文件中。要试用此例,应在窗体中建立一个 RichTextBox 控件和一个 CommandButton 控件,再把下列代码粘贴到 CommandButton 控件的 Click 事件中。然后运行此例。Private Sub Command1_Click ()
Open "mytext.rtf" For Output As 1
Print #1, RichTextBox1.SelRTF
Close 1End Sub