Dim mysub1 As New A(AddressOf B) GCHandle2 = GCHandle.Alloc(mysub1) ret = C(mysub1, MainWnd.Handle)
If (ret <> 0) Then
MsgBox("设置异步消息通知回调函数失败!")
Exit Function
End If=======================
A和C是dll中的函数
B是自定义函数
If (ret <> 0) Then
MsgBox("设置异步消息通知回调函数失败!")
Exit Function
End If=======================
A和C是dll中的函数
B是自定义函数
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货