方法 : デリゲート メソッドを呼び出す
更新 : 2007 年 11 月
この例では、メソッドとデリゲートを関連付け、デリゲートによってメソッドを呼び出す方法について説明します。
デリゲートおよび一致プロシージャの作成
MySubDelegate という名前のデリゲートを作成します。
Delegate Sub MySubDelegate(ByVal x As Integer)
デリゲートと同じシグネチャを持つメソッドが含まれるクラスを宣言します。
Class class1 Sub Sub1(ByVal x As Integer) MsgBox("The value of x is: " & CStr(x)) End Sub End Class
デリゲートのインスタンスが作成されるメソッドを定義し、組み込みの Invoke メソッドを呼び出して、デリゲートに関連付けられたメソッドを呼び出します。
Protected Sub DelegateTest() Dim c1 As New class1 ' Create an instance of the delegate. Dim msd As MySubDelegate = AddressOf c1.Sub1 ' Call the method. msd.Invoke(10) End Sub