デリゲートの使い方

VisualBasic.NET

デリゲート †

同じ引数を持つイベントを複数作成するときに便利。

Public Delegate Sub MyDelegate(ByVal sender As Object, ByVal e As EventArgs)

Public Event MyEvent1 As MyDelegate
Public Event MyEvent2 As MyDelegate

オリジナルのEventArgsを作るときはNewを活用

Public Class MyEventArgs
　　Inherits EventArgs

　　Private strMyProperty As String

　　Public Readonly Property MyProperty As String
　　　　Get
　　　　　　Return strMyProperty
　　　　End Get
　　End Property

　　Private Sub New(ByVal MyProperty As String)
　　　　strMyProperty = MyProperty
　　End Sub
End Class

イベントを呼び出すときは以下のように記述する。

RaiseEvent(Sender, New MyEventArgs(”123”))