VB 6 退出时崩溃

Question

我有一个旧版 vb6 应用程序在退出时崩溃 - 无论是作为可执行文件还是在 IDE 中。如何避免崩溃？

• 我目前正在卸载form_unload 中的表单（除了frmmain），释放所有ADODB 记录集，设置所有boundcollections = 无。
• 我试图在form_terminate 事件中SetErrorMode SEM_NOGPFAULTERRORBOX 并没有阻止错误的发生。
• 我还检查了在我的代码中实例化的子类，但没有找到。
• 我已经检查了 Microsoft 外部使用的组件 - 它们是 ComponentOne flexgrid 8 拼写 8 和 ComponentOne sizer 控件。广泛的网络和论坛搜索没有发现任何与我的这些控件类似的已知问题。

如果我在实际执行任何操作之前关闭程序，似乎不会出现此问题。然而，加载绑定控件似乎接近问题的根源，尽管反复使用调试器进行步进，但问题的开始似乎“四处移动”。程序退出、“X”和 IDE“结束”控件出现问题 错误信息是 The instruction at "0x77d042b8" referenced memory at "0x055c9028". The memory could not be "Read"。错误框中的标题是来自我的应用程序内部的工具提示（在不同时间有所不同） 我在单步执行代码时设置了中断 - 应用程序在 Form_Unload 事件的退出子行上崩溃

添加
我意识到我应该在我的原始帖子中包含一些其他信息。当我完成它时我感到非常疲倦和沮丧，很抱歉它很难阅读。
现在
1) 我确实安装了最新的服务包 (6)，以及组件的最新版本
2) 在我的 VS2010 ide 中进行调试（在同一台服务器上）我得到了一个以 OLEAUT32.dll 开头的很长的堆栈转储，我更新了那个 DLL 但没有发现任何变化
3）我实际上是通过远程桌面连接运行（和处理）程序。该程序在我的桌面以及用户终端服务器连接上崩溃。
4) 我运行的操作系统是 Windows Server 2003
5) 我正在运行的代码是
'代码'

    Private Sub Form_Unload(Cancel As Integer)
        Set rsChild = Nothing
        Set rsCaseFile = Nothing
        ' many similar record sets closing
        ys.CloseConnection
        Set ys = Nothing
        UnloadAllForms (Me.Name)
        ' closeing bound collections 
        Set bndChild = Nothing
         Set bndAuth = Nothing
         ' more bound collections closed
         ' i had added the next two lines but it made no difference
         frmmain.close
         Set frmMain = nothing 
         getout
    end sub
    Public Sub UnloadAllForms(Optional FormToIgnore As String = "")
        Dim f As Form
        For Each f In Forms
            If Not f Is Nothing Then
                If f.Name <> FormToIgnore Then
                    Unload f
                    Set f = Nothing
                End If
            End If
        Next f   
    End Sub

'\code'  

6）我在启动模块中添加了一个“getout”例程，希望可以让表单对象干净地关闭这并没有解决问题
非常感谢大家的帮助

Answer 1

看来这个bug已经死了，杀了10个部分
1) 非常小心地处理所有物品
2) 确认每个记录集在设置为空之前已关闭
3) 从最后一个表单关闭事件中关闭每个表单
4) 设置最后一个表单 .visible = false 然后调用一个计时器 1 秒
5) 在最后一个表单卸载事件的底部添加了一个 getout 调用
6) 将 getout 放入模块中
7) 添加了

'code'
Private Declare Function SetErrorMode Lib "kernel32" ( _
   ByVal wMode As Long) As Long  
Private Const SEM_FAILCRITICALERRORS = &H1  
Private Const SEM_NOGPFAULTERRORBOX = &H2  
Private Const SEM_NOOPENFILEERRORBOX = &H8000&  
'code'  

该模块中的声明
8) 用

调用该声明

'code'
SetErrorMode SEM_NOGPFAULTERRORBOX  
'code' 

在 getout 子的开头
9) 确认上次打开的表单已关闭
10) 将此代码包含在 getout 子的底部以确保它可以关闭

'code'  
    Dim tstart As Date  
    tstart = TimeValue(Now())  
    Dim i As Integer  
    i = 0  
    Do While (DateAdd("s", 3, tstart)) > TimeValue(Now())  
        For i = 0 To 1000  
            i = i + 1  
        Next  
        i = 0  
    Loop   
   ' endtask("PLacements") 

    End  
'code'  

最后一部分相当于将木桩插入心脏
感谢大家为我提供的帮助，特别是 MarkJ 编辑我的原始提交以符合论坛标准 - 我会尽力偿还

Answer 2

正在发生的事情是正在进行一些后台工作。很可能某些进程在发出 close() 之后触发了事件处理程序正在处理的异步代码。避免方法是隐藏表单，然后在完成关闭方法之前稍等片刻。要修复它，您必须确定在后台线程上触发工作的原因。在经典的 VB 中，这最终会很痛苦。

Answer 3

情况很糟糕。

• 您是否使用最新的 Windows 服务包、VB SP6 和latest builds of the components？
• 问题是发生在其他机器上还是只是您的机器上？如果只是您的机器，请购买另一台机器。
• 尝试通过删除程序的各个部分直到它停止崩溃来追踪此问题。然后将碎片放回原处，直到它崩溃。这应该可以帮助您跟踪涉及哪些组件或代码。程序是否工作并不重要，您只需要知道它是否在退出时崩溃。您可以注释掉或删除整个课程、删除控件等等。