注册 登录
编程论坛 VB6论坛

关于保存rtf文件时产生的错误。求解答!

肇励影 发布于 2016-08-05 15:02, 2080 次点击
只有本站会员才能查看附件,请 登录

图如上

错误信息:要求对象
7 回复
#2
xiangyue05102016-08-05 16:01
要求对象的错误就是你代码中用到了并没有出现的控件或者对象
中断在这句的时候,加入几个监控,看哪个是nothing。 我估计是你的commondialog,前面那句用的是
#3
肇励影2016-08-05 18:45
回复 2楼 xiangyue0510
试过了,还是不行。
#4
风吹过b2016-08-05 21:05
你的 CommonDialog1 控件在什么位置?在 MDIFrm 里。
而你的调用时,是在包含RichTextBox1 控件的 form 里调用,而这个窗体中不包括 CommonDialog1 。
参照你上面三行的代码,你调用 CommonDialog1 时都是带窗体名调用的,到这行就没带窗体名调用。
#5
ZHRXJR2016-08-06 11:53
由于上面已经有 没有问题,是 MDIFrm 窗体的对话框控件,那么当前窗体是不是有这个控件?直接 CommonDialog1.FileName 有可能出错,应该是
另外检查 BichTextBox1 控件,检查你的界面有没有这个 BichTextBox1 控件,或名称书写错误。
#6
肇励影2016-08-07 01:40
如何修改?
#7
ZHRXJR2016-08-07 10:25
程序代码:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If 关闭父窗体 = False Then
If Len(Me.RichTextBox1.Text) <> "" Then
Dim choice As Integer
choice = MsgBox("是否保存" & Me.Caption & "", 51, Me.Caption)
Select Case choice
    Case 6  '保存
    = "保存"
    = 2
    If Len() <> "" Then
    Me.RichTextBox1.SaveFile ()   '这个括号内应该是 不是 CommonDialog1.FileName
    Unload SearchingAndExchange    '不知道这个 SearchingAndExchange 是否是一个窗体
    End If
    choice = 0
    Case 7   '关闭
    Unload SearchingAndExchange    '不知道这个 SearchingAndExchange 是否是一个窗体
    Unload Me
    Case 2  '取消
'
以下代码看不到,不知道是什么,无法修改

在当前窗体打开时,MDIFrm窗体也应该是打开的,最起码是隐藏的,不是关闭的。
#8
肇励影2016-08-07 12:12
好的,谢谢
1