如何在不显示控制台窗口的情况下运行控制台应用程序

Question

我编写了一个包含以下子主程序的应用程序：

 Public Sub Main()
  Dim Value As String() = Environment.GetCommandLineArgs
  Dim F As Form
  Select Case Value.Last.ToLower
    Case "-character"
      F = New frmCharacterSheet
    Case "-viewer"
      F = New frmClient
    Case Else
      F = New frmCombat
  End Select
  Application.Run(F)
End Sub

这是因为我希望能够基于命令行以三种不同的启动模式安装我的应用程序。我确实有一个这样做的表单，但这使得错误捕获非常困难，因为主表单只是报告错误。

此控制台似乎运行良好，但我不希望用户在启动时看到黑色控制台屏幕。

我已经搜索过答案，但大多数解决方案都是“切换回 Windows 窗体应用程序”。由于上述原因，我不想这样做。 （我无法在 winforms 启动情况下使用 application.run(f)，因为我遇到了线程错误。

我需要知道如何隐藏控制台窗口，或者如何编写将启动其他三种表单之一的主菜单（但要使它们成为启动表单）。

任何帮助将不胜感激......

Answer 1

试试：

Private Declare Auto Function ShowWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
Private Declare Auto Function GetConsoleWindow Lib "kernel32.dll" () As IntPtr
Private Const SW_HIDE As Integer = 0

Sub Main()
    Dim hWndConsole As IntPtr
    hWndConsole = GetConsoleWindow()
    ShowWindow(hWndConsole, SW_HIDE)
    'continue your code
End Sub

它有一个副作用是窗口将被显示然后立即隐藏

变态

Answer 2

“或者如何编写将启动其他三种表单之一的主菜单（但使它们成为启动表单）。”

从一个标准的 WinForms 项目开始并使用Application.Startup() 事件。从那里您可以检查您的启动参数，然后通过将所需实例分配给“My.Application.MainForm”来动态更改启动表单。这将导致该表单加载，就好像它是最初分配给“启动表单”条目的表单一样。

单击项目 --> 属性 --> 应用程序选项卡 --> “查看应用程序事件”按钮（右下角；向下滚动）。 将左侧下拉菜单从“（General）”更改为“（MyApplication Events）”。 将 Right 下拉菜单从“Declarations”更改为“Startup”。

简化代码：

Namespace My

    ' The following events are available for MyApplication:
    ' 
    ' Startup: Raised when the application starts, before the startup form is created.
    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
    ' UnhandledException: Raised if the application encounters an unhandled exception.
    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
    Partial Friend Class MyApplication

        Private Sub MyApplication_Startup(sender As Object, e As ApplicationServices.StartupEventArgs) Handles Me.Startup
            If True Then
                My.Application.MainForm = New Form1 ' <-- pass your desired instance to MainForm
            End If
        End Sub

    End Class

End Namespace

Answer 3

只需转到Project Properties> Application> Application Type> 并选择Windows Forms Application

此时您的ConsoleApplication 完全不可见，没有用户界面。

Answer 4

我只想添加另一个解决方案，尽管 Idle_Mind 已经提供了一个很好的解决方案。这表明您可以在 WinForms 应用程序中使用Application.Run(Form)。

Public Class Form1

    Private Shared applicationThread As New Threading.Thread(AddressOf Main)

    Private Shared Sub Main()
        Dim myForm As Form
        Dim config = 2 ' if 3, will run Form3
        Select Case config
            Case 2
                myForm = New Form2
            Case 3
                myForm = New Form3
            Case Else
                MessageBox.Show("Bad config!")
                Exit Sub
        End Select
        Application.Run(myForm)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        applicationThread.Start()
        ' immediately dispose Form1 so it's not even shown
        Dispose()
    End Sub

End Class