（可选）在VB.Net控制台应用程序中启动表单

Question

因此，我将应用程序设置为控制台类型的应用程序，并将其指向仅包含Sub Main的模块，即

    Module mdlConsole
     Sub Main(ByVal cmdArgs() As String)

        If cmdArgs.Length = 0 Then
            Dim frm As New frmMain
            frm.Show()
        End If
     End Sub
    End Module

理想情况下，如果未提供任何参数，则程序将仅启动主表单。 目的是使该程序（可选）可从命令行编写脚本。 如果提供了参数，则不加载应用程序表单，并根据提供的命令行参数来处理其功能。

现在，程序开始运行，短暂启动窗体（frmMain），然后关闭。 我在做什么错还是想念？

如果您不愿意给我答案，也很高兴能指出正确的方向。 我不希望有人会提供答案。 我也要学习。

谢谢！

Answer 1

对于Winforms，您需要“运行” App对象，并传递一个表单以使用：

 Sub Main(ByVal cmdArgs() As String)

    If cmdArgs.Length = 0 Then
        Dim frm As New frmMain

        Application.Run(frm)

    Else
        ' cmd line version
    End If
 End Sub

Answer 2

我在您的评论中看到您想删除使用当前提出的解决方案运行程序的窗体版本时出现的控制台窗口。 由于缺乏声誉，我无法发表评论，因此我将做出一个完整的答复。

考虑从相反的角度进行处理：如果您将程序编写为表单应用程序，则默认情况下打开它会弹出表单。 但是在Form1_Load事件中，检查命令行参数； 如果它们大于0，只需在此处运行您的（缩写）代码逻辑。 在代码末尾，只需运行Application.Exit() ，如下所示：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    If My.Application.CommandLineArgs.Count > 0 Then

        ' Execute (abbreviated) code logic

        ' When finished, exit the program
        Application.Exit()

    End If

End Sub

如果您依赖于用户界面，这还可以使代码更简洁，更实用，因为您仍然可以访问用户可能会修改的表单元素的值-但无需在屏幕上显示表单（除非您提示使用MsgBox等）。

这对于计划任务也非常有效，因为用户可以使用用户界面手动运行它们，而程序在执行时不会通过计划任务可见。

Answer 3

上面乍得解决方案的一种后续形式，我使用了如何拥有不可见的启动表格中定义的步骤。 避免显示我的表格。

简而言之，创建一个在Form1_Load之前启动的Overrides子例程：

这对我有用：

Protected Overrides Sub SetVisibleCore(ByVal value As Boolean)

    If Not Me.IsHandleCreated Then
        Me.CreateHandle()
        value = False
        MyBase.SetVisibleCore(value)
    Else
        Exit Sub
    End If

    If My.Application.CommandLineArgs.Count > 0 Then
        MsgBox("Argument Sensed!")
        ' Execute (abbreviated) code logic

        ' When finished, exit the program
        Me.Close()
        Application.Exit()
    Else
        MyBase.SetVisibleCore(True)
    End If
End Sub