demodelegate.vb

来自「C#高级编程第6版随书源代码 值得下载」· VB 代码 · 共 15 行

Public Delegate Sub DemoDelegate(ByVal x As Integer)

Public Class Demo
    Public Shared Sub Foo(ByVal x As Integer)
        Console.WriteLine("Foo: {0}", x)
    End Sub
    Public Sub Bar(ByVal x As Integer)
        Console.WriteLine("Bar: {0}", x)
    End Sub
End Class