vb6 dll将回调作为整数,vb.net需要委托引用类型

我认为如果您像这样声明setcallback函数:

Public Sub setCallback([MarshalAs(UnmanagedType.FunctionPtr)]funcAddr as function)

我不是一个vb用户,所以我不知道确切的语法。但这里的基本思想是,在vb.net中,您声明原型接受委托,甚至是正确类型的委托。但是,然后使用marshalas属性告诉marshalling代码将其作为另一端的函数指针(实际上是一个整数)来处理。我在C语言中这样做,把回调传递给C++代码,它工作得很好。

例如,在C语言中#

public delegate int MyProgress(double dPercentComplete);
...
int WaitWithProgress([MarshalAs(UnmanagedType.FunctionPtr)]MyProgress pfn);

显示在房子的C++侧

HRESULT __stdcall WaitWithProgress (long pfn, int * pRetVal);

注意注释。这个问题的实际解决办法是 Marshal.GetFunctionPointerForDelegate() 仔细阅读相关文档。如果使用此方法,则必须先确保委托不会被垃圾收集,然后才能 setCallback(NULL)