delegatecreationexpression1.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 13 行

Class DelegateCreationExpression1
    Delegate Function DoubleFunc(ByVal x As Double) As Double

    Sub Test()
        Dim d As doublefunc = New doublefunc(AddressOf Square)
    End Sub
    Overloads Shared Function Square(ByVal x As Double) As Double

    End Function
    Overloads Shared Function Square(ByVal x As Single) As Single

    End Function
End Class