The#ExternalSource指令

The#ExternalSource指令

#ExternalSource( StringLiteral , IntLiteral )
    [ LogicalLine ]
#End ExternalSource

#ExternalSource伪指令的参数是外部文件的路径，第一行的行号和发生错误的行。

示例

以下代码演示了伪指令的使用：

Module mydirectives
    Public Class ExternalSourceTester
        Sub TestExternalSource()
        #ExternalSource("c:vbprogsdirectives.vb", 5)
            Console.WriteLine("This is External Code. ")
        #End ExternalSource
        End Sub
    End Class

    Sub Main()
        Dim t As New ExternalSourceTester()
        t.TestExternalSource()
        Console.WriteLine("In Main.")
        Console.ReadKey()
    End Sub

当上述代码被编译和执行时，它产生了以下结果：

This is External Code.
In Main.