1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Imports System.CodeDom.Compiler
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim CodeProvider As New VBCodeProvider
Dim MyParametres As New CompilerParameters
MyParametres.ReferencedAssemblies.Add("System.dll")
MyParametres.ReferencedAssemblies.Add("System.Windows.Forms.dll")
MyParametres.ReferencedAssemblies.Add("Microsoft.VisualBasic.dll")
MyParametres.GenerateExecutable = True
MyParametres.OutputAssembly = "test.exe"
MyParametres.CompilerOptions = "/target:winexe"
MyParametres.TreatWarningsAsErrors = False
Dim Results As CompilerResults = CodeProvider.CompileAssemblyFromFile(MyParametres, "TextFile1.txt")
If Results.Errors.HasErrors Then
' If an error occurs
MsgBox("Error: Line>" & Results.Errors(0).Line.ToString & ", " & _
Results.Errors(0).ErrorText)
Exit Sub
End If
End Sub |
Partager