Практическое руководство. Включение пакетного режима для приложений Windows Forms (Visual Basic)

В этом примере используется событие My.Application.Startup для проверки того, запущено ли приложение со строкой /batch в качестве аргумента.

Включение пакетного режима для приложений Windows Forms

1. Выберите проект в обозревателе решений. В меню Проект выберите пункт Свойства.

2. На вкладке Приложение нажмите кнопку Просмотр событий приложения, чтобы открыть редактор кода.

3. Создайте метод, обрабатывающий событие Startup. Дополнительные сведения см. в разделе Практическое руководство. Обработка событий приложения (Visual Basic).

   Private Sub MyApplication_Startup( 
       ByVal sender As Object, 
       ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs 
   ) Handles Me.Startup
   

   End Sub
   

4. Выполните итерацию аргументов командной строки приложения и установите для свойства Cancel объекта e значение True, если один из аргументов имеет значение /batch.

   Если свойству Cancel присвоено значение True, начальная форма не запускается.

   For Each s As String In My.Application.CommandLineArgs
       If s.ToLower = "/batch" Then
           ' Stop the start form from loading.
           e.Cancel = True
       End If
   Next
   

5. Если свойство Cancel объекта e имеет значение True, вызовите основную процедуру для работы в безоконном режиме.

   If e.Cancel Then
       ' Call the main routine for windowless operation.
       Dim c As New BatchApplication
       c.Main()
   End If
   

Пример

Private Sub MyApplication_Startup( 
    ByVal sender As Object, 
    ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs 
) Handles Me.Startup
    For Each s As String In My.Application.CommandLineArgs
        If s.ToLower = "/batch" Then
            ' Stop the start form from loading.
            e.Cancel = True
        End If
    Next
    If e.Cancel Then
        ' Call the main routine for windowless operation.
        Dim c As New BatchApplication
        c.Main()
    End If
End Sub
Class BatchApplication
    Sub Main()
        ' Insert code to run without a graphical user interface.
    End Sub
End Class

См. также

Задачи

Практическое руководство. Доступ к аргументам командной строки (Visual Basic)

Ссылки

ApplicationBase

CommandLineArgs

Основные понятия

Обзор модели приложения в Visual Basic