重载 VB.NET 事件？

Question

在我的 VB.NET 类中，我有一些这样的代码：

Public Class barClass

Private Function foo(data as string)
    msgbox("Data is a string: " & data)
End Function

Private Function foo(data as integer)
    msgbox("Data is an integer: " & data
End Function

End Class

这显然可以让您传递foo 一个字符串或整数。

我想我可以为事件做同样的事情，所以我尝试：

Public Event FooRaised(data as string)
Public Event FooRaised(data as integer)

我认为这会让我通过传递我从 foo 获得的任何数据来引发事件，但我收到一个错误，说我不能这样做（FooRaised 已经被声明）。

我如何做到这一点？

Answer 1

使用 Object 参数声明单个事件，然后检查类型以处理它：

Public Class Form1

  Public Event Foo(o As Object)

  Sub FooHandler(o As Object) Handles Me.Foo
    If o.GetType Is GetType(Integer) Then
      Dim i As Integer = DirectCast(o, Integer)
      i += 1 'add one to the integer value'
      MsgBox(i.ToString)
    ElseIf o.GetType Is GetType(String) Then
      Dim s As String = DirectCast(o, String)
      s &= "!!" 'append exclamation marks'
      MsgBox(s)
    End If
  End Sub

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    RaiseEvent Foo(21)
    RaiseEvent Foo("a string value")
  End Sub
End Class