.net - 如何在VB6应用程序中拥有.NET组件触发事件？

Question

我有一个 VB6 应用程序，它引用并调用 .NET GUI 组件。 .NET GUI 组件有一个数据网格。我想要双击数据网格中的一行来显示 VB6 应用程序中的表单？

我怎样才能做到这一点？

Answer 1

我假设您正在通过 COM 互操作访问 .NET 对象，在这种情况下，您只需在控件中创建一个普通事件，并且可以像处理任何其他控件事件一样在使用者 (VB6) 中获取该事件。

public MyNetClass {
  public delegate void RowDoubleClickedDelegate(int Row);

  public event RowDoubleClickedDelegate RowDoubleClicked;

  protected void OnRowDoubleClicked(int row) {
    if (RowDoubleClicked != null) {
      RowDoubleClicked(row);
    }
  }
}

在 VB6 中:

Dim WithEvents NetObect As MyNetClass

Private Sub MyNetClass_RowDoubleClicked(ByVal Row As Long)
  MsgBox CStr(Row) & " clicked"
End Sub