Question

VB如何读取RichTextBox控件里的关键字，写入到text里

假设RichTextBox里显示为：
1.
圆角；
进度；
2.
标志；
背景
我想把RichTextBox里的【圆角；】写入到text里，应该如何做到这一步？

Answer 1

可以用RichTextBoX的Find，查找控件中是否包含关键字，不过这个控件对中文支持不是很好，我试过写查找下一个的功能，但没能成功。

RichTextBox.Find ("关键字")返回关键字在文本中的序号，跟instr这个函数很像。
要取出一段文本可以用RTB1.SelStart来设置选择起点，RTB1.SelLength设置选择长度，然后Text1.text=RichTextbox.SelText

Answer 2

搞不懂你的目的。直接在Text中写入“圆角”不就行了吗：
Text1.Text = "圆角"
还是RichTextBox里的“圆角”这两个汉字有啥特殊之处？

追问

这方法我自有我的目的，但是，你能实现这个效果吗，如果按你这样做的话，就没有意义了

追答

你的意思没有表述清楚啊！你的意思是不是说：如果RichTextBox中含有“圆角”这个词，Text中就显示“圆角”，没有就不显示？

追问

差不多吧，这样表述也可以，要怎么做呢