.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