Question

在VB6.0中用RichTextbox控件总出错

我是一个VB的初学者,在学习VB菜单编辑器时例题用RichTextbox控件时在文件打开时总出错,下面是程序代码,请高手指点一下,找了好久也没有解决办法.
Private Sub munopen_Click()
CommonDialog1.DialogTitle = "请选择一个文件"
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|写字板文件(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.InitDir = "F:\"
CommonDialog1.Flags = 4
CommonDialog1.ShowOpen
RichTextbox1.loadfile CommonDialog1.FileName
Form1.Caption = CommonDialog1.FileName
就是RichTextbox1.loadfile CommonDialog1.FileName这一句出错
我在运行中选择了文件也是报错,刚才有人说是richtextbox1和添加的控件名称不符合,能告诉我在什么地方设置相符吗?

Answer 1

我复制你的代码，运行成功了。

我推测你的错误就像那个人说的，是控件名的问题

你应该确认一下你显示文本的控件的Name是不是RichTextbox1

如图

Answer 2

你没选择文件 导致CommonDialog1.FileName为空 而又执行
RichTextbox1.loadfile CommonDialog1.FileName 可不就出错了
if CommonDialog1.FileName<>"" then RichTextbox1.loadfile CommonDialog1.FileName

添加richtextbox控件流程
打开工程菜单--部件--列表中选择 microsoft rich textbox control 6.0
然后从 工具箱 点选（图标右下角带红色A字样）控件 添加到窗体中