[VB.NET] 委派(Delegate)

委派(Delegate)

定義 Method 結構

'定義委派

Public Delegate Sub Hello(ByVal str As String)

'主程式

Module TestHello

         Public Sub Main()

                   '建構委派

                   Dim SH As New Hello(AddressOf HelloWorld)

                   '呼喚-同步

                    SH.Invoke("Cloud")

         End Sub

         '給委派用的程序

         Private Sub HelloWorld(ByVal s As String)

                   System.Console.WriteLine(s & " Hello World!!")

         End Sub

End Module