module1.vb

来自「编程之道VB.NETt程序设计入门-589M.zip」· VB 代码 · 共 29 行

Module Module1

    Delegate Sub DoSomething(ByVal param As String)

    Sub PrintIt(ByVal StringToPrint As String)
        Console.WriteLine(StringToPrint)
    End Sub

    Sub PrintItAsUppercase(ByVal StringToPrint As String)
        Console.WriteLine(StringToPrint.ToUpper())
    End Sub

    Sub PrintString(ByVal PrintSub As DoSomething)
        PrintSub("A string to be printed")
    End Sub

    Sub Main()
        PrintString(AddressOf PrintIt)
        PrintString(New DoSomething(AddressOf PrintItAsUppercase))

        Dim PrintSub1 As DoSomething
        PrintSub1 = AddressOf PrintItAsUppercase
        PrintSub1.Invoke("A string to be printed")

        Console.ReadLine()
    End Sub

End Module