型拡張

データ型を拡張し任意の動作を追加する事が出来る。
引数の型で追加される型が決まるようだ。
※Object型には追加できなかった。

Module mdlExtension

    '内容を出力ウィンドウとイミデイトウィンドウに出す
    <Extension()>
    Public Sub Print(ByVal aString As String)
        Console.WriteLine(aString)
        Debug.Print(aString)
    End Sub

    'String→Double
    <Extension()>
    Public Function ToDouble(val As String) As Double

        Dim ret As Double = 0

        If Double.TryParse(val, ret) Then
            Return ret
        Else
            Return 0
        End If

    End Function

End Module