委派(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
arrow
arrow
    全站熱搜
    創作者介紹
    創作者 colud77 的頭像
    colud77

    I-Cloud程式攻略

    colud77 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄