Необязательно форма запуска в консольном приложении 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

я вижу в своем комментарии, что вы хотите, чтобы удалить окно консоли, которое появляется при запуске формы версии программы с предлагаемым решением. Я не могу комментировать из-за отсутствия репутации, поэтому я сделаю это полноценным ответом.

Рассмотрите возможность приближения к этому с обратной точки зрения: если вы напишете программу как приложение формы, ее открытие по умолчанию приведет к появлению формы. Но в событии 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 2

Для 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 3

Вид следующего решения Чада выше Я использовал шаги, определенные в How to have an invisible start up form?, чтобы не показывать мою форму.

Короче говоря, создать подпрограмму Overrides, которая получает запущен до Form1_Load:

Это работало для меня:

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