如何在RichTextBox中取出一段被选中的字符串放入一个变量中？急急100分相送

Question

如何在RichTextBox中取出一段被选中的字符串放入一个变量中？急急100分相送

Answer 1

使用SelText：  strTmp= RichTextBox1.SelText_________________________________________________
 
SelLength、SelStart、SelText 属性（ActiveX 控件）
      SelLength－返回或设置所选择的字符数。
SelStart－返回或设置所选择的文本的起始点；如果没有文本被选中，则指出插入点的位置。
SelText－返回或设置包含当前所选择文本的字符串；如果没有字符被选中，则为零长度字符串 ("")。 
这些属性在设计时.是不可用的。语法object.SelLength [= number]object.SelStart [= index]object.SelText [= value]SelLength、SelStart、和 SelText 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
number 一个用来指定被选择字符数的数值表达式。对于 SelLength 和 SelStart，设置值的有效范围是 0 到文本长度－在 ComboBox 或 TextBox 控件编辑区中字符的总数。 
index 一个用来指定所选择文本的起始点的数值表达式，“设置值”中有详细描述。 
value 包含所选择文本的字符串表达式。 
说明为下面这些任务应使用这些属性，如设置插入点、建立插入范围、在控件中选择子串、或清除文本等。与 Clipboard 对象联合使用，这些属性对于复制、剪切、和粘贴操作是很有用的。当使用这些属性时： SelLength 的设置比 0 小会导致一个运行时错误。
SelStart 的设置比文本长度大，会使该属性设置为现有文本长度；SelStart 的改变将使选择改变到插入点并将 SelLength 设置为 0。
SelText 的设置为新值，会将 SelLength 设置为 0 并用新字符串代替所选择的文本。 

Answer 2

TO:winehero(编程人生):
试过用strTmp= RichTextBox1.SelText但是strtmp 的值为空

Answer 3

'比如说，如下通过代码，全部选中Richtextbox的文本，然后用Messagebox显示出来。
Option ExplicitPrivate Sub Command1_Click()
    RichTextBox1.SelStart = 0
    RichTextBox1.SelLength = Len(RichTextBox1.Text)
    MsgBox RichTextBox1.SelText
End Sub

Answer 4

不好意思，刚才自己的代码有点问题现在解决。strTmp= RichTextBox1.SelText取到给分