订阅 VB6 中的 C# .net 事件

Question

我需要能够在 VB6 中处理 .net 事件。到目前为止，我已经通过使 c# 类 COM 可见来设置它。我的 VB6 对象可以很好地调用它的方法，但现在我需要某种方法从 .net 到 VB 进行通信。如果我向我的 c# 类添加一个事件，.net 包装器似乎会添加一个 add_EventName 和 remove_EventName，我认为这是订阅和取消订阅该事件。但对于VB6来说我还是个新手，所以我不太确定如何使用它。

add_EventName 似乎采用 EventNameEventHadler 但我该给它什么？我尝试了 sub，但这给了我一个运行时错误。有人知道如何使用这个吗？这是我所拥有的示例

Private oHost As HostService.IHost

Private Sub Form_Load()
    Set oHost = New HostService.Host
    oHost.Start
    oHost.add_EvalReceived EvalReceivedEventHandler
End Sub

Private Sub EvalReceivedEventHandler(ByVal sender As Variant, ByVal e As EvalReceivedEventArgs)
MsgBox "Eval Received in VB: " & e.Eval.TimeSent & ":" & e.Eval.FirstName & " " & e.Eval.LastName & " - " & e.Eval.Comments
End Sub

所以 oHost.add_EvalReceived 行是错误的

Answer 1

好的，我在 MarkJ 的帮助下成功了。我必须有一个代表 COM 事件的接口。所以他们最终看起来像这样

[ComSourceInterfaces(typeof(IHostEvents))]
[ClassInterface(ClassInterfaceType.None)]
[Guid("037CF765-4C30-4CF7-969C-1775E79844CE")]
public class Host : IHost
{
    //IHost implementation
}

[ComVisible(true)]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
[Guid("8C0C3F0E-5793-4E11-AB20-3A556C0B6790")]
public interface IHostEvents
{
    [DispId(1)]
    void EvalReceived(object sender, EvalReceivedEventArgs e);
}

Answer 2

您可以尝试将 WithEvents 添加到 oHost 声明中

Private WithEvents oHost As HostService.IHost

，然后 IDE 应允许您在 oHost 上创建事件处理程序。这就像创建 Form_Load 事件处理程序一样。代码窗口左上角的下拉列表应该让您选择oHost。

免责声明：我已经多次使用它来处理来自 COM 对象的事件。我从未真正尝试过通过互操作处理来自 .Net 对象的事件，但我认为您必须这样做。

Answer 3

在 VB6 中，您可以使用 AddressOf 运算符隐式创建委托：

oHost.add_EvalReceived AddressOf EvalReceivedEventHandler