方法: デリゲートメソッドを呼び出す (Visual Basic)

2025-06-17

この例では、メソッドをデリゲートに関連付け、デリゲートを使用してそのメソッドを呼び出す方法を示します。

デリゲートを作成し、それに対応するプロシージャを設定する

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
```

こちらも参照ください