要求对象的错误就是你代码中用到了并没有出现的控件或者对象
中断在这句的时候,加入几个监控,看哪个是nothing。 我估计是你的commondialog,前面那句用的是
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 '取消 '以下代码看不到,不知道是什么,无法修改