"Jwe" <jw*@mail.comwr ote in message
news:ce******** *************** *******@pipex.n et...
Hi,
I've written a program which has both a command line interface
and Windows form interface, however it isn't quite working
correctly.
When run from command line with no arguments it should display
the Windows form. The form is being displayed but the command
only returns when the form is closed. I want the command line
to return immediately, leaving the form displayed.
When run from Windows Explorer (by double-clicking on
TheProgram.exe) it should display the Windows form only. The
form is being displayed but a console window is also being
displayed.
When run from the command line with the correct number of
arguments it should operate on the supplied arguments and
display a message. This is working correctly.
If the correct number of arguments is supplied it should
display the command help. This is working correctly.
In Project - Properties, the Output type is 'Windows
Application' and Startup object is 'Sub Main'.
Sub Main is basically:
arguments = Environment.Get CommandLineArgs ()
If arguments.Lengt h = 1 Then
'No command line arguments so display the Windows
form
Dim frmMain As New frmWindows_Form
Application.Run (frmMain)
ElseIf arguments.Lengt h <3 Then
'Required arguments not supplied, so display the
help
Output_Command_ Help()
Else
'Run command
Any help much appreciated. Thanks.
http://forums.microsoft.com/MSDN/Sho...83493&SiteID=1
has a solution to the problem (incorporated in the code below)
which works for Visual Studio 2005 (Visual Basic 2005 Express,
Framework 2.0), but not for Visual Studio .NET 2003 (VB 2003
..NET, Framework 1.1).
Here's how to reproduce the problem using either Visual Basic
..NET 2003 or Visual Basic 2005:
Start a new Windows Application project - WindowsApplicat ion1.
This gives Form1.vb.
Add a Module to the project - Module1.vb
Replace the empty Module1 code with the following code:
Imports System.Environm ent
Module Module1
Declare Function AttachConsole Lib "kernel32" (ByVal
dwProcessId As Int32) As Boolean
Declare Function FreeConsole Lib "kernel32.d ll" () As Boolean
Sub Main()
Dim args As String() = GetCommandLineA rgs()
If args.Length = 1 Then
'No arguments so show windows form
Dim frmMain As New Form1
Application.Run (frmMain)
Else
AttachConsole(-1)
Console.WriteLi ne("Arguments supplied")
FreeConsole()
End If
End Sub
End Module
For VB 2003, in Project - Properties, leave Output type as
Windows Application and change Startup object to Sub Main.
For VB 2005, in Project - Properties, untick Enable application
framework, leave Output type as Windows Application and change
Startup object to Sub Main.
Build the project, then open a command prompt and run
WindowsApplicat ion1.exe from it as follows:
1. With no arguments. The form is displayed and the command
prompt returns immediately, allowing other commands to be
entered. Required behaviour.
2. With any number of arguments. The 'Arguments supplied' is
displayed for the VB 2005 application, but not for VB 2003.
3. Run it from Windows Explorer. The form is displayed and a
separate console window is not opened. Required behaviour.
So case 2 isn't working as required for VB 2003.
The AttachConsole and FreeConsole functions described in the link
above make case 2 work for VB 2005.
For the VB 2003 application, it fixes case 2 for a Debug build,
but has no effect for a Release build, which is exactly the same
findings as
http://groups.google.co.uk/group/mic...1643af7419e141
I'm interested in why it doesn't work for the VB 2003 Release
build, and any ideas for alternative fixes.
cheers,
