如何在VB6应用中有.NET组件触发事件？

Question

我有一个引用和调用.NET图形用户界面组件的VB6应用程序。.NET图形用户界面组件有一个数据网格。我想双击数据网格中的一行，以显示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