高手们，小弟我现在有一个很大的难题。请你们帮我。

[txg163]

RichTextBox1中有行多行字母，我要把第一行(这一行总的字母数，大于255，请问有没有办法处理了。)，放入RichTextBox2中去。请指点

[qingming81]

可以的：

dim strA
strA = split(richtextbox1.text,vbcrlf)

richtextbox2.text = strA(0)

[qingming81]

如果你的换行是普通的chr(10),按以下方法：
dim strA
strA = split(richtextbox1.text,chr(10))

richtextbox2.text = strA(0)

[txg163]

首先谢谢up，但是，不能把这一行所以的字符放入RichTextBox2中，只现出RichTextBox1第一行的一部份呀，请高手们出帮助呀。

[qingming81]

你的RichTextBox1第一行和第二行之间是用什么分行？是自动回车键，还是它的自动换行？

[qingming81]

有可能已经放进去了，但Richtextbox2没有显示完成，所以你可以将它再显示出来：即
msgbox strA(0)

或写入文本中看看：
open app.path & "\firstline.txt" for output as #1
write #1, strA(0)
close #1

然后打开同目录下的firstline.txt看看。

[txg163]

我的RichTextBox1是回车换行。

[qingming81]

按上面的第一个就可以
dim strA
strA = split(richtextbox1.text,vbcrlf)

richtextbox2.text = strA(0)