확장 메서드(Visual Basic)

확장메서드 선언

Imports System.Runtime.CompilerServices
Module StringExtension

    <EXTENSION()>
    Public Sub Print(ByVal aString As String)
        Console.WriteLine(aString)
    End Sub

    <EXTENSION()>
    Public Sub PrintAndPunctuate(ByVal aString As String, ByVal punc As String)
        Console.WriteLine(aString & punc)
    End Sub

End Module

본문

Module Module1

    Sub Main()
        
        Dim example As String = "Example string"
        example.Print()
        example.ToUpper().Print()
        example.PrintAndPunctuate(".")
        example.PrintAndPunctuate("!!!")

        Console.ReadKey()
    End Sub

End Module