在 VB6 应用程序中出现缺少组件错误

Question

我有一个 VB6 应用程序，其中包含大量第三方组件。该应用程序运行良好，但在退出时（并且仅当作为独立 EXE 运行时，例如不在 IDE 中），它会弹出一条错误消息：

我以前见过类似的错误，但通常它表示哪个组件缺少依赖项或未正确注册。

我通过进程监视器运行它并得到了它找不到的以下文件：

然后它退出。我用谷歌搜索了它找不到的文件名，似乎找不到任何东西。看起来它正在寻找 MSComENU、MSComEN 和 MSCOENU dll 的变体。

我检查并重新检查，以确保所有第 3 方组件都在那里，并且它们都在那里 - 应用程序功能正常，如果它们不在那里，则不会。

值得注意的是，在触发最后一行 VB6 代码（在 Form_Unload 事件中）后会发生错误。我知道这一点是因为最后一行是确实出现的消息框。

很久很久以后编辑：我终于回到处理问题并通过排除过程找到了它（这是一个漫长的过程）。最后它与任何 MSCOMM*.dll 条目无关。事实上，我不知道为什么它们仍然出现在进程监视器中。问题就简单多了。

我在主窗体上有几个第三方控件。为了不让大量的事件处理代码污染主窗体，我将这些控件委托给一个新类，如下所示：

' declaration code in main form'
Private WithEvents moDelegateObject as clsDelegateObject

' still in the main form, after initialization'
Set moDelegateObject = new clsDelegateObject
With moDelegateObject
    Set .ThirdPartyCtlHandler1 = me.ThirdPartyCtl1
    Set .ThirdPartyCtlHandler2 = me.ThirdPartyCtl2
    Set .ThirdPartyCtlHandler3 = me.ThirdPartyCtl3
end with

' declarations and properties inside of clsDelegateObject'
Private WithEvents moThirdPartyCtlHandler1 as ThirdPartyCtl
Private WithEvents moThirdPartyCtlHandler2 as ThirdPartyCtl
Private WithEvents moThirdPartyCtlHandler3 as ThirdPartyCtl
Public Event FooEvent() ' other various events as well '

Public Property Set ThirdPartyCtlHandler1(o as ThirdPartyCtl) 
    moThirdPartyCtlHandler1 = o
End Property 
Public Property Get ThirdPartyCtlHandler1() as ThirdPartyCtl
    ThirdPartyCtlHandler1 = moThirdPartyCtlHandler1 
End Property
' ... Repeat for each handler ...'

缺少的是在关闭之前显式释放这些对象的代码。这是 Visual Basic 通常所做的事情。因此，我在主窗体的 Form_QueryClose 中添加了以下内容：

With moDelegateObject
    Set .ThirdPartyCtlHandler1 = Nothing
    Set .ThirdPartyCtlHandler2 = Nothing
    Set .ThirdPartyCtlHandler3 = Nothing
End with
Set moDelegateObject = Nothing  

最后一行结果是多余的，但为了完整性我将其放在那里。我认为这是将控件委托给委托类并在主窗体中接收事件的组合，并使用了大量真正晦涩的第三方控件，这导致了这个问题。第三方控制很可能没有完全释放自己。无论如何，吸取教训了。

Answer 1

这可能是 DLL_PROCESS_DETACH 或 CoUninitialize 问题。 Raymond Chen 的博客“The Old New Thing”有几篇相关文章：

• 当 DLL_PROCESS_DETACH 告诉您进程正在退出时，最好的选择就是返回而不执行任何操作
• 您知道析构函数何时运行吗？第 1 部分。
• 快速概述进程如何退出在 Windows XP 上
• 如何在 DLL_PROCESS_DETACH 期间加载 DLL，甚至没有意识到
• 获得DLL_PROCESS_DETACH通知的线程不一定是获得DLL_PROCESS_DETACH通知的线程DLL_PROCESS_ATTACH 通知

正如您所说，这些是第 3 方组件。您可以尝试制作较小的测试用例，直到问题消失以查明有问题的组件。您还可以尝试使用本机代码调试器并分析哪些代码创建了错误消息。

然而，解决该问题的最简单的解决方案是尝试强制所有这些组件的特定加载顺序。在 Main() 或启动表单中，尝试以固定顺序使用每个第 3 方组件的某些功能。如果错误仍然出现，请更改顺序，直到问题消失。这可能有用。

Answer 2

您可以尝试在项目文件中的引用列表中使用 dependency walker 来查看是否有任何第三方文件缺少依赖项。如果没有缺少依赖项，请尝试使用 regsvr32 再次注册文件。如果任何 regsvr32 命令失败，则您可能发现缺少依赖项的组件。