Imports 문(.NET 네임스페이스 및 형식)

다음 예제에서는 DirectoryInfo 클래스를 사용하여 C:\ 디렉터리에 있는 모든 폴더를 반환합니다.

Imports statements at the top of the file.' xml:space="preserve">이 코드는 파일 맨 위에 Imports 문이 없습니다. DirectoryInfo, StringBuilder, and CrLf references are all fully qualified with the namespaces.' xml:space="preserve">따라서 DirectoryInfo, StringBuilder 및 CrLf 참조는 네임스페이스를 사용하여 정규화되었습니다.

 
Public Function GetFolders() As String
    ' Create a new StringBuilder, which is used
    ' to efficiently build strings.
    Dim sb As New System.Text.StringBuilder

    Dim dInfo As New System.IO.DirectoryInfo("c:\")

    ' Obtain an array of directories, and iterate through
    ' the array.
    For Each dir As System.IO.DirectoryInfo In dInfo.GetDirectories()
        sb.Append(dir.Name)
        sb.Append(Microsoft.VisualBasic.ControlChars.CrLf)
    Next

    Return sb.ToString
End Function

다음 예제에는 참조된 네임스페이스에 대한 Imports 문이 포함되어 있습니다. 따라서 형식은 네임스페이스를 사용하여 정규화하지 않아도 됩니다.

 
' Place Imports statements at the top of your program.
Imports System.Text
Imports System.IO
Imports Microsoft.VisualBasic.ControlChars

 
Public Function GetFolders() As String
    Dim sb As New StringBuilder

    Dim dInfo As New DirectoryInfo("c:\")
    For Each dir As DirectoryInfo In dInfo.GetDirectories()
        sb.Append(dir.Name)
        sb.Append(CrLf)
    Next

    Return sb.ToString
End Function

다음 예제에는 참조된 네임스페이스에 대한 별칭을 생성하는 Imports 문이 포함되어 있습니다. 형식이 별칭으로 정규화되었습니다.

 
Imports systxt = System.Text
Imports sysio = System.IO
Imports ch = Microsoft.VisualBasic.ControlChars

 
Public Function GetFolders() As String
    Dim sb As New systxt.StringBuilder

    Dim dInfo As New sysio.DirectoryInfo("c:\")
    For Each dir As sysio.DirectoryInfo In dInfo.GetDirectories()
        sb.Append(dir.Name)
        sb.Append(ch.CrLf)
    Next

    Return sb.ToString
End Function

다음 예제에는 참조된 형식에 대한 별칭을 만드는 Imports 문이 포함되어 있습니다. 형식을 지정하는 데 별칭이 사용되었습니다.

 
Imports strbld = System.Text.StringBuilder
Imports dirinf = System.IO.DirectoryInfo

Public Function GetFolders() As String
    Dim sb As New strbld

    Dim dInfo As New dirinf("c:\")
    For Each dir As dirinf In dInfo.GetDirectories()
        sb.Append(dir.Name)
        sb.Append(ControlChars.CrLf)
    Next

    Return sb.ToString
End Function