1,451
社区成员
发帖
与我相关
我的任务
分享关于Richtextbox的一个奇怪的问题，请高手帮忙！！非常急，24小时在线等！顶着有分
我用Richtextbox去填加了许多文字和许多图片。第一次填加的时候没有没有问题，第二次的时候我是先把RichTextBox1.Text = ""然后在这里会提示“对象'Text'的方法'IRichText'失败”然后我的程序就死了。不知道什么原因，请各位高手帮忙解决！！！非常急，24小时在线等！顶着有分！！！
...全文
请发表友善的回复…
发表回复
happywqw 2006-03-28
- 打赏
- 举报
http://www.cnpopsoft.com/blog/article.asp?id=3
cyy219 2005-11-08
- 打赏
- 举报
学习！
shanlisong 2005-11-08
- 打赏
- 举报
TO: rainstormmaster(暴风雨 v2.0)你说用API解决，能不能贴出一些原码出以供参考？
谢谢喽！
谢谢喽！
shanlisong 2005-11-07
- 打赏
- 举报
终于有人有点反应了。
TO: rainstormmaster(暴风雨 v2.0)真谢谢你喽，我试过把按钮给False了，可以没有用呀。真不知道是怎么个回事。也试过XP系统，SP6补丁打上去，都是一样的结果。郁闷呀，不知道有没有什么办法去解决呀！！
TO: rainstormmaster(暴风雨 v2.0)真谢谢你喽，我试过把按钮给False了，可以没有用呀。真不知道是怎么个回事。也试过XP系统，SP6补丁打上去，都是一样的结果。郁闷呀，不知道有没有什么办法去解决呀！！
rainstormmaster 2005-11-07
- 打赏
- 举报
我刚才测试出现了你说的情况，我的vb没打补丁,你这样试试：
Private Sub Command1_Click()
Command1.Enabled = False
'你的代码
Command1.Enabled = True
End Sub
Private Sub Command1_Click()
Command1.Enabled = False
'你的代码
Command1.Enabled = True
End Sub
shanlisong 2005-11-07
- 打赏
- 举报
郁闷呀！！
碧海情天-赵亮 2005-11-07
- 打赏
- 举报
我没试，但我提个不同的想法：
问题都是出现在第二次吧。
第一次操作设.TXT＝“”没问题是因为默认为无控制格式的TXT文本。
而赋值之后已经认为是包含BMP的RICHTXT格式，第二次操作时直接设.TXT=""时就会出错。
所以 northwolves(狼行天下) 的方法我觉得应该是对的。
问题都是出现在第二次吧。
第一次操作设.TXT＝“”没问题是因为默认为无控制格式的TXT文本。
而赋值之后已经认为是包含BMP的RICHTXT格式，第二次操作时直接设.TXT=""时就会出错。
所以 northwolves(狼行天下) 的方法我觉得应该是对的。
rainstormmaster 2005-11-07
- 打赏
- 举报
事实上无论是richtextbox的selstart,seltext属性还是selrtf属性,在richtextbox控件的内容较多时效率都变得很低,所以我建议你用api解决
rainstormmaster 2005-11-07
- 打赏
- 举报
问题解决了吗,如果还不行的话,看来就要动用api了
northwolves 2005-11-07
- 打赏
- 举报
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
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
northwolves 2005-11-07
- 打赏
- 举报
而且出现早晚也不一样,有时几百个字符,有时几千个,有时数十万字符才出错,当时字符串里也是有许多斜杠和括号, 估计是反复追加破坏了RTF的编码格式.
试一试:
Private Sub Command2_Click()
RichTextBox1.TextRTF = "\( " '死掉
'RichTextBox1.TextRTF = "(\ " '死不掉
End Sub
试一试:
Private Sub Command2_Click()
RichTextBox1.TextRTF = "\( " '死掉
'RichTextBox1.TextRTF = "(\ " '死不掉
End Sub
northwolves 2005-11-07
- 打赏
- 举报
这个问题我在WIN2K,WINXP下都遇到过,WIN9X下不曾遇过.可能与Automation 对象有关
couragetodream 2005-11-01
- 打赏
- 举报
UP
shanlisong 2005-10-31
- 打赏
- 举报
嗨！看来我的问题没有人来解决喽。郁闷呀！！
shanlisong 2005-10-28
- 打赏
- 举报
TO: supergreenbean(超级绿豆(MS MVP - VB) - 暑去冬来，该吃补药了……)刚才我在一台xp sp2+vb6 sp6的机上试过一次，用 lisong1314(孤芳自赏) 的程序去试过一次。还是会出现那个问题，我真的要晕死了，还请各位高手帮忙呀！！！谢谢！！
shanlisong 2005-10-28
- 打赏
- 举报
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下面都试过，都是不行的。
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下面都试过，都是不行的。
bbhere 2005-10-28
- 打赏
- 举报
应该是控件的问题，重装一下吧
supergreenbean 2005-10-28
- 打赏
- 举报
可能还是你richedit的吧....
我把文件都加到102K了也还是没有问题,
你到其他地方拷贝richtx32.ocx,riched32.dll,rchtxchs.dll这些文件来看看
我是xp sp2+vb6 sp6
我把文件都加到102K了也还是没有问题,
你到其他地方拷贝richtx32.ocx,riched32.dll,rchtxchs.dll这些文件来看看
我是xp sp2+vb6 sp6
shanlisong 2005-10-27
- 打赏
- 举报
TO:winehero(编程人生) 我的没有打补丁，我想这个应该是RichTextBox本身的问题吧，不知道有没有什么办法解决呢？
TO:cuilei197979(风) RichTextBox没有clear的方法呀。
TO:cuilei197979(风) RichTextBox没有clear的方法呀。
faysky2 2005-10-27
- 打赏
- 举报
UP
没碰到过，想不来原因
楼上的，RichTextBox没有clear属性吧？
没碰到过，想不来原因
楼上的，RichTextBox没有clear属性吧？
加载更多回复（11）
