调用.NET表单的COM App调用COM表单，在编译时有效，但在VB6 IDE中不起作用

Question

我有一个旧版VB6 / COM应用程序，我们正在通过.NET DLL将所有代码迁移到.NET（VB.NET）。 所有新的表单开发都在.NET DLL中完成。

我们使用函数指针来调用.NET形式的COM函数：

1. 我在.NET中创建一个委托
2. 在运行时将委托设置为COM函数的AddressOf（GetDelegateForFunctionPointer）
3. 显示.NET表单
4. 调用代表

COM App-> .NET表格-> COM功能

这对功能正常。 当我调用显示表单的COM函数时，这种情况就出现了。

COM App-> .NET表单-> COM函数-> COM表单

将执行COM函数并显示该窗体，但是在VB6 IDE中执行时，该COM窗体的逻辑不会执行。 显示了控件，但未执行任何click或form_load事件。 编译VB6应用程序时，这不是问题。

我注意到的另一个问题是VB6 IDE会“冻结”，直到卸载.NET表单为止。 我无法停止调试器，设置断点或无法与IDE的菜单进行交互。 就像VB6 IDE允许.NET DLL完全控制线程一样。 我相信这两个问题是相关的。

编辑：.NET窗体是模式的，这可能是IDE线程锁定的原因。 我只是想知道是否有解决办法。 另外，我研究了InteropForms工具包。 它不能解决我的问题。 即使将其样本形式设置为模式，也会导致发生相同的IDE线程锁定。

编辑2：我以前的编辑确实暗示了另一个解决方法：当宿主应用程序为VB6时，.NET表单显示为无模式。

If InStr(Process.GetCurrentProcess().ProcessName, "vb6", CompareMethod.Text) > 0 Then
    frm.Show()
Else
    frm.ShowDialog()
    frm.Dispose()
End If

Answer 1

使用InteropForms Toolkit 2.1可以使用简单的COM App-> .NET Form-> COM函数-> COM Form方案。 这是一些无需使用委托或AddressOf即可执行的代码。

首先，我们有我们的COM库，我将其称为ComLibrary。 我们有以下代码：

SimpleForm.frm：

Option Explicit

Private Sub Form_Load()
    MsgBox "In SimpleForm_Load"
End Sub

Private Sub OkButton_Click()
    Unload Me
End Sub

Private Sub TalkButton_Click()
    MsgBox "Hello"
End Sub

SimpleClass.cls：

Option Explicit

Public Function ShowTheDialog() As Long
    Dim f As SimpleForm

    Set f = New SimpleForm

    f.Show vbModal

    ShowTheDialog = 1

End Function

将其编译为.dll，以便我们可以在.NET库中引用它。

接下来，我们将创建.NET表单库。 我使用默认项目名称为InteropFormsLibrary1的“ VB6 InteropForms库”项目模板进行了此操作。 我添加了对ComLibrary项目的引用。 该表单具有一个名为“ CallComFunction”的按钮。

InteropForm1.vb：

Imports Microsoft.InteropFormTools

<InteropForm()> _
Public Class InteropForm1
    Private Sub CallComFunction_Click(sender As System.Object, e As System.EventArgs) Handles CallComFunction.Click
        Dim sc As ComLibrary.SimpleClass
        sc = New ComLibrary.SimpleClass

        Dim result As Integer
        result = sc.ShowTheDialog()
    End Sub
End Class

在进行编译之前，我们需要根据工具箱文档创建InteropForms包装器类。 通过访问“工具”>“生成器InteropForms包装器类”菜单来执行此操作。

最后，我们创建VB6主机应用程序。

Form1.frm：

Option Explicit

Private Sub DialogButton_Click()
    Dim f As InteropFormLibrary1.InteropForm1

    Set f = New InteropForm1

    f.Show vbModal

End Sub

当我在VB6 IDE中运行主机应用程序时，我可以单击VB6表单按钮，然后显示VB.NET表单。 从那里，我单击另一个按钮，该按钮使用SimpleClass的实例显示SimpleForm。 表单加载事件中的MsgBox语句和按钮单击处理程序均起作用。 编译VB6主机应用程序时，一切都可以正常工作。

Answer 2

看来您的VB6 IDE正在将您的VB应用程序作为“进程内” COM对象加载，尽管这对我来说意义不大...但是，如果是这样，那就意味着您只有一个消息循环适用于您的应用程序和调试器，这至少可以解释其中的一些问题。 我已经有很多年没有使用VB-classic IDE了，所以我不知道它是如何工作的。 也许某处有一个选项可以在一个单独的过程中加载您的应用程序？

更新-看来我的猜测是正确的。 有关更多信息和可能的解决方法，请参见另一个问题及其答案：

https://stackoverflow.com/a/518217/501196