none
VBCodeProvider Erro RRS feed

  • Pergunta

  • Boa noite, venho pedir ajuda novamente sobre um erro que esta me incomodando.

    Foto

    Codigo

    Imports Microsoft.CSharp
    Imports System.CodeDom.Compiler
    Imports System.IO
    Imports System.Globalization
    
    Public Class Form1
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Conpile()
        End Sub
    
        Private Sub Conpile()
            Dim Codigo As String = File.ReadAllText("C:\Users\pjoao\Desktop\Module1.vb")
            '  Dim Codigo1 As String = File.ReadAllText("C:\Users\pjoao\Desktop\.vb")
            '  Dim Codigo2 As String = File.ReadAllText("C:\Users\pjoao\Desktop\.vb")
    
            Dim FileCreate As String = "C:\Users\pjoao\Desktop\Teste.exe"
            Dim Conpiler As New CompilerParameters
            With Conpiler
                .GenerateExecutable = True
                .OutputAssembly = FileCreate
                .GenerateInMemory = True
                .WarningLevel = 4
                .MainClass = "Module1"
    
                .ReferencedAssemblies.Add("System.Windows.Forms.dll")
                .ReferencedAssemblies.Add("system.dll")
                .ReferencedAssemblies.Add("mscorlib.dll")
                .ReferencedAssemblies.Add("system.core.dll")
                .ReferencedAssemblies.Add("system.data.dll")
                .ReferencedAssemblies.Add("System.Collections.dll")
                .ReferencedAssemblies.Add("System.Drawing.dll")
                .ReferencedAssemblies.Add("Microsoft.VisualBasic.dll")
                .ReferencedAssemblies.Add("System.Xml.Linq.dll")
                .ReferencedAssemblies.Add("System.Xml.dll")
                .ReferencedAssemblies.Add("System.Threading.Tasks.dll")
                .ReferencedAssemblies.Add("System.Management.dll")
                .ReferencedAssemblies.Add("System.ServiceProcess.dll")
            End With
            Dim VB As New VBCodeProvider
            Dim Resultado As CompilerResults = VB.CompileAssemblyFromSource(Conpiler, {Codigo})
            For Each x In Resultado.Errors
                Me.TextBox1.Text &= x.ToString() & vbCrLf
            Next
        End Sub
    End Class
    


    Eu encerei esse artigo pois o pessoal não conseguiu me ajudar

    https://social.msdn.microsoft.com/Forums/vstudio/pt-BR/e8fe707d-aa69-43f0-98a6-3c58dde56977/compilerparameters-erro?forum=vsvbasicpt

    Ate mesmo o amigo Fabio tentou me ajudar mais nada teve sucesso 


    quarta-feira, 1 de agosto de 2018 01:25

Todas as Respostas

  • Boa tarde, João Paulo []. Tudo bem?

    Obrigado por usar o fórum MSDN.

    Conseguiu algum avanço nesse caso? Se ainda não, o que falta?

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quarta-feira, 8 de agosto de 2018 19:49
    Moderador
  • Não amigo
    quarta-feira, 8 de agosto de 2018 22:39