在Roslyn VB.NET中缺少我的命名空间(Missing My namespace in Roslyn VB.NET)

 如果我理解正确的是什么，则通过自动将文件VbMyTemplateText.vb到每个编译中来添加My命名空间。 为了使它实际生成一些东西，必须正确设置预处理器符号_MYTYPE （在控制台应用程序的情况下为"Console" ）。 
 
 要使这项工作，你还需要引用System.dll ，但之后一切正常： 
 
Imports System.CodeDom.Compiler
Imports Microsoft.CodeAnalysis
Imports Microsoft.CodeAnalysis.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices

Module Module1

    Sub Main()
        Dim code = "Module Module1" + Environment.NewLine +
                       "Sub Main()" + Environment.NewLine +
                            "System.Console.WriteLine(My.Application.Info.AssemblyName)" + Environment.NewLine +
                       "End Sub" + Environment.NewLine +
                   "End Module"

        Dim tree = VisualBasicSyntaxTree.ParseText(code)

        Dim compilation = VisualBasicCompilation.Create("test").
            AddSyntaxTrees(tree).
            AddReferences(MetadataReference.CreateFromFile(GetType(Object).Assembly.Location)). ' mscorlib
            AddReferences(MetadataReference.CreateFromFile(GetType(GeneratedCodeAttribute).Assembly.Location)). ' System
            AddReferences(MetadataReference.CreateFromFile(GetType(StandardModuleAttribute).Assembly.Location)). ' Microsoft.VisualBasic
            WithOptions(New VisualBasicCompilationOptions(OutputKind.ConsoleApplication).WithParseOptions(
                VisualBasicParseOptions.Default.WithPreprocessorSymbols(New KeyValuePair(Of String, Object)("_MYTYPE", "Console"))))

        Dim emitResult = compilation.Emit("test.exe")
        If Not emitResult.Success Then
            Console.WriteLine(String.Join(Environment.NewLine, emitResult.Diagnostics))
        End If

    End Sub

End Module

If I understand what's going on correctly, the My namespace is added by automatically including the file VbMyTemplateText.vb into each compilation. And to make it actually generate something, the preprocessor symbol _MYTYPE has to be set correctly (in the case of a console application to "Console").
 
To make this work, you also need to reference System.dll, but after that everything works fine:
 
Imports System.CodeDom.Compiler
Imports Microsoft.CodeAnalysis
Imports Microsoft.CodeAnalysis.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices

Module Module1

    Sub Main()
        Dim code = "Module Module1" + Environment.NewLine +
                       "Sub Main()" + Environment.NewLine +
                            "System.Console.WriteLine(My.Application.Info.AssemblyName)" + Environment.NewLine +
                       "End Sub" + Environment.NewLine +
                   "End Module"

        Dim tree = VisualBasicSyntaxTree.ParseText(code)

        Dim compilation = VisualBasicCompilation.Create("test").
            AddSyntaxTrees(tree).
            AddReferences(MetadataReference.CreateFromFile(GetType(Object).Assembly.Location)). ' mscorlib
            AddReferences(MetadataReference.CreateFromFile(GetType(GeneratedCodeAttribute).Assembly.Location)). ' System
            AddReferences(MetadataReference.CreateFromFile(GetType(StandardModuleAttribute).Assembly.Location)). ' Microsoft.VisualBasic
            WithOptions(New VisualBasicCompilationOptions(OutputKind.ConsoleApplication).WithParseOptions(
                VisualBasicParseOptions.Default.WithPreprocessorSymbols(New KeyValuePair(Of String, Object)("_MYTYPE", "Console"))))

        Dim emitResult = compilation.Emit("test.exe")
        If Not emitResult.Success Then
            Console.WriteLine(String.Join(Environment.NewLine, emitResult.Diagnostics))
        End If

    End Sub

End Module