将 VB 函数回调作为参数传递给 .NET

Question

Visual Basic 程序的一部分正在移至 .NET dll。

参数调用成功，一切正常。

如何在长时间运行的异步任务后传递 VB6 的回调函数以供 .NET 调用？

在 .NET 中

Public Delegate Function VBCallBackFunc() As Integer

Public Function DoSomething(a As String, b As String, c As String, _
parent As IntPtr, Optional ByVal CallbackAddr As VBCallBackFunc = Nothing) As Boolean Implements _DotNetLib.DoSomething

VB6

result = DotNetLib.DoSomething(strA, strB, strC, Me.hwnd, AddressOf DotNetCallback)

Public Function DotNetCallback() As Long
    MsgBox ("Callback")
End Function

在VB的对象浏览器中：

Function DoSomething(strA As String, strB As String, strC As String,
 parent As Long, [CallbackAddr As VBCallBackFunc]) As Boolean

Member of DotNetLib

但它说“AddressOf 运算符的使用无效”？？？

Answer 1

使用Events相关的cmets是一个不错的选择，但是我更倾向于使用接口，所以这里有一个解决方案。

（手写代码，需要进行语法检查，名称可以清理，仅用于说明目的）

在 .NET 中：

为您的回调创建一个 COM 公开接口：

Public Interface IVBCallBack
   Public Function VBCallBackFunc() As Integer
End Interface

改变你的 DoSomething 是这样的：

Public Function DoSomething(a As String, b As String, c As String, parent As IntPtr, ByVal CallbackAddr As IVBCallBack) As Boolean

在 VB6 中：

result = DotNetLib.DoSomething(strA, strB, strC, Me.hwnd, Me)

（你需要你的类、控件或表单到Implements IVBCallBack）

Public Function IVBCallBack_VBCallBackFunc() As Long
    MsgBox ("Callback")
End Function

确保在 .NET 端有一个方法来清理和释放所有引用，因为 .NET 持有对 VB6 对象的引用。

还有一点需要注意。不要在主 UI 线程以外的任何线程上回调 VB6！