当 .NET 窗体打开时，Visual Basic 6.0 应用程序不会关闭。相反，它会显示消息“无法退出”。

Question

我有一个 Visual Basic 6.0 应用程序，它使用用 .NET。当 Windows 关闭时，应用程序必须正常关闭。问题是，如果代码的 .NET 部分显示窗口，则应用程序会显示消息 “无法退出”并且无法退出。 （然后它被操作系统终止。）

我已经成功地在一个简化的应用程序中重现了这一点。

.NET 代码创建一个 WPF 窗口并使用 ShowDialog() 显示它：

[Guid("5F3D0B23-2196-4082-B9DE-B208C61FE89F")]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface IComShutdownTest
{
    [DispId(1)]
    void RunTest();
}

[Guid("E6613EDD-D51B-42c0-AA5B-5961AB28D063")]
[ClassInterface(ClassInterfaceType.None)]
[ProgId("ShutdownTest")]
public class ShutdownTest : IComShutdownTest
{
    public ShutdownTest() 
    {  }

    public void RunTest()
    {
        TestWindow testWindow = new TestWindow();
        bool? dialogResult = testWindow.ShowDialog();
    }
}

如您所见.NET 调用会阻塞（并且位于 GUI 线程上），我怀疑这可能是问题的根源，但我无法让所有调用都成为非阻塞。我假设当操作系统关闭时，所有打开的应用程序窗口都将终止。

Visual Basic 6.0 应用程序通过单击按钮加载并显示 .NET 窗体。

Private Sub ButtonTest_Click()

    LogEventToFile "Starting"
    Dim dotNetTestObject As ShutdownTest

    LogEventToFile "Creating"
    Set dotNetTestObject = New ShutdownTest

    LogEventToFile "Running"
    dotNetTestObject.RunTest

    LogEventToFile "Done"

End Sub

如果您尝试在 .NET 表单显示在屏幕上时关闭 PC，则会失败。 “无法退出”消息框看起来像这样。

要重新创建它，您必须将程序集标记为 COM 可见（在文件 assemblyinfo.cs 中））：

[assembly: ComVisible(true)]

并且您必须将“项目”->“属性”>“构建”选项卡设置为“注册 COM 互操作”

我还注册了已编译的程序集：

regasm ShutdownTestLibrary.dll /tlb ShutdownTestLibrary.tlb

如何解决此问题？

Answer 1

如果您在任何窗口上调用 ShowDialog()，它将在该线程上阻塞，直到窗口关闭（从用户或代码）。

您可能需要在 COM 接口上创建一个方法来关闭 .NET 中的窗口，或者以某种方式在 Visual Basic 中获取窗口句柄来关闭窗口。

Answer 2

以下方法之一应该可以解决您的问题：

• 确保您的 .NET 窗口具有 Text/名称属性设置。我知道这有时会导致这样的问题。
• 将 .NET 窗口的所有者设置为 Visual Basic 窗口。使用user32.dll中的SetParent函数。
• 连接到 .NET 库中的 Microsoft.Win32.SystemEvents.SessionEnding 并关闭窗口。

Answer 3

您可以尝试将父窗口作为 .NET 方法的参数，这样当父组件尝试关闭时，.NET 组件会收到通知。

public void RunTest(IWin32Window owner)
{
    TestWindow testWindow = new TestWindow();
    bool? dialogResult = testWindow.ShowDialog(owner);
}

在您的 Visual Basic 6.0 代码中：

Call dotNetTestObject.RunTest(Me.hWnd)