This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(12.8, 77%, 11%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ES%3C/text%3E%3C/svg%3E)
Hello,
I have 2 VB.net WinForms app (.net 4.0) one is x64 one is x86
From the x64 one, I call the x86 one and need to get back its return code.
Code inside the x64 app:
Using Compiler As New Process
Compiler.StartInfo.WorkingDirectory = My.Application.Info.DirectoryPath
Compiler.StartInfo.FileName = "App.exe"
Compiler.StartInfo.UseShellExecute = False
Compiler.StartInfo.RedirectStandardOutput = False
Compiler.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
Compiler.EnableRaisingEvents = True
Compiler.Start()
Compiler.WaitForExit()
If Compiler.HasExited = False Then
Compiler.Kill()
Else
MsgBox(Compiler.ExitCode)
End If
End Using
And the second x86 app, in the form load., I use:
Environment.ExitCode = xxx
'Environment.Exit(xxx)
Application.Exit()
The problem is that I always get zero as return code :(
Anyone knows why?
Thanks.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(6.4, 79%, 10%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EK0%3C/text%3E%3C/svg%3E)
What do you put in xxx?
X86WinApp
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Environment.ExitCode = 999
Application.Exit()
End Sub
End Class
X64WinApp
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Using Compiler As New Process
Compiler.StartInfo.WorkingDirectory = My.Application.Info.DirectoryPath
Compiler.StartInfo.FileName = "X86WinApp.exe"
Compiler.StartInfo.UseShellExecute = False
Compiler.StartInfo.RedirectStandardOutput = False
Compiler.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
Compiler.EnableRaisingEvents = True
Compiler.Start()
Compiler.WaitForExit()
If Compiler.HasExited = False Then
Compiler.Kill()
Else
MsgBox(Compiler.ExitCode)
End If
End Using
End Sub
End Class
This will cause a window to be displayed for a moment, so for x86App, do the following:
Public Class Form1
Protected Overrides Sub SetVisibleCore(value As Boolean)
If Not IsHandleCreated Then
CreateHandle()
value = False
End If
MyBase.SetVisibleCore(value)
End Sub
Protected Overrides Sub OnHandleCreated(e As EventArgs)
MyBase.OnHandleCreated(e)
Environment.ExitCode = 999
Application.Exit()
End Sub
End Class
Any number from 1 to 10, initial is zero. when called from the other app.exe, it always returned zero until I disabled Application Framework and set the ExitCode in the New / Finalize
No idea if it can work with Application Framework enabled or not :(
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(153.6, 89%, 24%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EJL%3C/text%3E%3C/svg%3E)
May I know if you have got any chance to check the new replies? I am glad to help if you have any other questions.
Thanks all, when called from the other app.exe, it always returned zero until I disabled Application Framework and set the ExitCode in the New / Finalize
No idea if it can work with Application Framework enabled or not :(
I tested it with the application framework disabled, and the set value was returned correctly. Please check that the value is set correctly.
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Environment.ExitCode = 1
MsgBox(Environment.ExitCode)
Application.Exit()
End Sub
End Class
Hi @StewartBW
Disabling the Application Framework ensures that your custom exit code logic is not overridden.
Best Regards.
Jiachen Li
If the answer is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.