关于Richtextbox的一个奇怪的问题，请高手帮忙！！非常急，24小时在线等！顶着有分

Question

我用Richtextbox去填加了许多文字和许多图片。第一次填加的时候没有没有问题，第二次的时候我是先把RichTextBox1.Text = ""然后在这里会提示“对象'Text'的方法'IRichText'失败”然后我的程序就死了。不知道什么原因，请各位高手帮忙解决！！！非常急，24小时在线等！顶着有分！！！

Answer 1

没碰到过，是不是控件的问题，有打VB的SP5/SP6吗？

Answer 2

顶
不知道RichTextBox1.clear 可不可以

Answer 3

UP没碰到过，想不来原因
楼上的，RichTextBox没有clear属性吧？

Answer 4

TO:winehero(编程人生) 我的没有打补丁，我想这个应该是RichTextBox本身的问题吧，不知道有没有什么办法解决呢？
TO:cuilei197979(风) RichTextBox没有clear的方法呀。

Answer 5

那把richtx32.ocx,riched20.dll和RICHED32.DLL删掉重装捏?

Answer 6

TO:supergreenbean(超级绿豆(MS MVP - VB) - 暑去冬来，该吃补药了……) 那把richtx32.ocx,riched20.dll和RICHED32.DLL删掉重装？是什么意思？你是叫我把这个Richtx32.ocx先手工删除，在重装VB6.0吗？

Answer 7

TO:Tiger_Zhao(VB老鸟)你添加差不多1M的东西进行。在里面有N个图片试试，我保证，这个问题一定会出现。

Answer 8

刚才我查到了添加没有什么特殊字符的文本，在大都没有什么问题只要添加到如：
Φ(x<lo>0</lo>)=1-Φ(-x<lo>0</lo>),
p(a<bmp>03.bmp</bmp>ξ<bmp>03.bmp</bmp>b)=Φ(b)-Φ(a).
你添加N次上面这些东西就会出现“对象'Text'的方法'IRichText'失败”
大家帮忙试试，这个可以不用添加图片，只要添加上面这些东东就会出现，各高手们帮忙解决这个问题，谢谢！！真的好奇怪。

Answer 9

我试过一遍用如下程序
Private Sub Command1_Click()
    Dim a As String
    RichTextBox1.Text = ""Open "C:\123.txt" For Input As #1
    While Not EOF(1)
    Line Input #1, a
        RichTextBox1.SelStart = Len(RichTextBox1.Text)
        RichTextBox1.SetFocus
        RichTextBox1.SelText = a
    Wend
    Close #1 
End Sub
在123.txt中有好多“Φ(x<lo>0</lo>)=1-Φ(-x<lo>0</lo>),
p(a<bmp>03.bmp</bmp>ξ<bmp>03.bmp</bmp>b)=Φ(b)-Φ(a).”这种字符，文件大小大给为6K多。第一次点击时没有错，点第二次的时候就会出现“对象'Text'的方法'IRichText'失败”点确定后程序死掉。
不知道为什么去出现如上问题，期待高手们来解决。

Answer 10

刚才有一个地方错了，现在改正一下
我试过一遍用如下程序
Private Sub Command1_Click()
    Dim a As String
    RichTextBox1.Text = ""
    Open "C:\123.txt" For Input As #1
    While Not EOF(1)
    Line Input #1, a
        RichTextBox1.SelStart = Len(RichTextBox1.Text)
        RichTextBox1.SetFocus
        RichTextBox1.SelText = a
    Wend
    Close #1 
End Sub
在123.txt中有好多“Φ(x<lo>0</lo>)=1-Φ(-x<lo>0</lo>),
p(a<bmp>03.bmp</bmp>ξ<bmp>03.bmp</bmp>b)=Φ(b)-Φ(a).”这种字符，文件大小大给为6K多。第一次点击时没有错，点第二次的时候就会出现“对象'Text'的方法'IRichText'失败”点确定后程序死掉。
不知道为什么去出现如上问题，期待高手们来解决。

Answer 11

可能还是你richedit的吧....
我把文件都加到102K了也还是没有问题,
你到其他地方拷贝richtx32.ocx,riched32.dll,rchtxchs.dll这些文件来看看我是xp sp2+vb6 sp6

Answer 12

TO: supergreenbean(超级绿豆(MS MVP - VB) - 暑去冬来，该吃补药了……)谢谢！！你在哪个102K的文件里面有没有全是“Φ(x<lo>0</lo>)=1-Φ(-x<lo>0</lo>),
p(a<bmp>03.bmp</bmp>ξ<bmp>03.bmp</bmp>b)=Φ(b)-Φ(a).”Φ(x<lo>0</lo>)=1-Φ(-x<lo>0</lo>),
p(a<bmp>03.bmp</bmp>ξ<bmp>03.bmp</bmp>b)=Φ(b)-Φ(a).”这些内容。如果你哪里没有问题，那就奇怪了。我在几台2000下面都试过，都是不行的。

Answer 13

TO: supergreenbean(超级绿豆(MS MVP - VB) - 暑去冬来，该吃补药了……)刚才我在一台xp sp2+vb6 sp6的机上试过一次，用 lisong1314(孤芳自赏) 的程序去试过一次。还是会出现那个问题，我真的要晕死了，还请各位高手帮忙呀！！！谢谢！！

Answer 14

我刚才测试出现了你说的情况，我的vb没打补丁,你这样试试：
Private Sub Command1_Click()
    Command1.Enabled = False
    '你的代码
    Command1.Enabled = True
End Sub

Answer 15

终于有人有点反应了。
TO: rainstormmaster(暴风雨 v2.0)真谢谢你喽，我试过把按钮给False了，可以没有用呀。真不知道是怎么个回事。也试过XP系统，SP6补丁打上去，都是一样的结果。郁闷呀，不知道有没有什么办法去解决呀！！

Answer 16

这个问题我在WIN2K,WINXP下都遇到过,WIN9X下不曾遇过.可能与Automation 对象有关

Answer 17

而且出现早晚也不一样,有时几百个字符,有时几千个,有时数十万字符才出错,当时字符串里也是有许多斜杠和括号, 估计是反复追加破坏了RTF的编码格式.试一试:Private Sub Command2_Click()RichTextBox1.TextRTF = "\( " '死掉
'RichTextBox1.TextRTF = "(\ " '死不掉End Sub

Answer 18

Len(RichTextBox1.Text),RichTextBox1.SelText = a 觉得有问题,象下面这样处理就不会出错了:Private Sub Command1_Click()
    Open "C:\123.txt" For Input As #1
    While Not EOF(1)
    Line Input #1, a
             RichTextBox1.SetFocus
         SendKeys "^{end}"
         RichTextBox1.SelRTF = a
    Wend
    Close #1
    Me.Caption = Len(RichTextBox1.Text)End Sub

Answer 19

问题解决了吗,如果还不行的话,看来就要动用api了

Answer 20

事实上无论是richtextbox的selstart,seltext属性还是selrtf属性,在richtextbox控件的内容较多时效率都变得很低,所以我建议你用api解决

Answer 21

我没试，但我提个不同的想法：
问题都是出现在第二次吧。
第一次操作设.TXT＝“”没问题是因为默认为无控制格式的TXT文本。
而赋值之后已经认为是包含BMP的RICHTXT格式，第二次操作时直接设.TXT=""时就会出错。
所以 northwolves(狼行天下) 的方法我觉得应该是对的。

Answer 22

TO: rainstormmaster(暴风雨 v2.0)你说用API解决，能不能贴出一些原码出以供参考？谢谢喽！

Answer 23

http://www.cnpopsoft.com/blog/article.asp?id=3