Запуск процедуры/функции до открытия формы

@Devils · Регистрация: 05.02.2015

Студворк — интернет-сервис помощи студентам

Всем, привет.
Возможно ли запустить процедуру/функцию до открытия формы? Т.е. до процедуры:

VB.NET
1
2
3
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        'Код программы
    End Sub

@Kulma · 10.04.2018, 14:19

Создаёте процедуру

VB.NET
1
2
3
4
5
6
7
Module Module1
     Sub Main()
      'код вашей процедуры/функции
      Form1.Show
      
 End Sub
End Module

и стартуете проект с этой процедуры Main

Добавлено через 15 минут
Или так , запуск тот же через Main

VB.NET
1
2
3
4
5
6
7
Module Module1 
     Sub Main() 
         'код вашей процедуры/функции
          Dim f1 as New Form1 
          Application.run(f1) 
     End Sub 
End Module

@Devils · 09.02.2021, 16:22 **[ТС]**

Всем привет.
Каким образом выполнить определенные процедуры, без запуска основной формы?
Если программе переданы аргументы, то необходимо выполнить ряд процедур/функции и завершить программу, не загружая основную форму. Если же аргументы не переданы программе, то просто запустить основную форму.

@Kulma · 09.02.2021, 18:15

Devils, точно так же как указано выше , только через ветвление IF
При TRUE выполняются процедуры без формы , при FALSE открывается форма,
ну или наоборот, на ваше усмотрение.

@Devils · 10.02.2021, 09:44 **[ТС]**

Kulma, Пардон, изначально затупил На ваше первое сообщение не посмотрел.
А как прописать, чтобы проект стартовал именно с процедуры main в module1? Ведь если приложение типа: "Приложение Windows Forms", то указать можно только форму запуска. В данном случае - Form1

I can · 10.02.2021, 10:04

Сообщение от Devils

проект стартовал именно

В свойствах решения нажмите кнопку "Посмотреть события приложения".
Попадёте в модуль, где черным по белому написано

' Для MyApplication имеются следующие события:
'
' Startup: возникает при запуске приложения перед созданием начальной формы.
' Shutdown: возникает после закрытия всех форм приложения. Это событие не происходит при прерывании работы приложения из-за ошибки.
' UnhandledException: возникает, если в приложение обнаруживает необработанное исключение.
' StartupNextInstance: возникает при запуске приложения, допускающего одновременное выполнение только одной копии, если это приложение уже активно.
' NetworkAvailabilityChanged: возникает при изменении состояния подключения: при подключении или отключении.

Добавлено через 2 минуты
Добавите туда

VB.NET
1
2
3
    Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
            Module1.main()
        End Sub

И будет вам щастье

@Devils · 10.02.2021, 11:01 **[ТС]**

I can, это я понял. Интересен такой момент. Выполняется процедура Module1.main() в MyApplication_Startup.
В Module1.main() выполняется условие

VB.NET
1
2
3
4
5
If My.Application.CommandLineArgs.Count = 0 then
'Выполняется некий код и запускается Form1
else
'Выполняется некий код и закрыть программу в целом
end if

Как закрыть программу, при выполнении условия, не загружая основную форму?

I can · 10.02.2021, 11:08

Сообщение от Devils

Как закрыть программу, при выполнении условия, не загружая основную форму?

End

Добавлено через 4 минуты

Сообщение от Devils

Module1.main()

Да и main вместе с Module1 не нужен. Можно код перенести в MyApplication_Startup.
Правда есть нюансы

@ViterAlex · 10.02.2021, 12:36

ну а можно переопределить метод OnLoad внутри самой формы, если выполняемый код относится к самой форме

VB.NET
1
2
3
4
5
6
7
Protected Overrides Sub OnLoad(e As EventArgs)
    'Тут выполняем код до вызова события Load
    MessageBox.Show("Событие Load ещё не вызывалось.")
 
    'А теперь вызываем событие Load
    MyBase.OnLoad(e)
End Sub

А можно из конструктора, а можно при создании хэндла окна, Там событий много до Load

@Devils · 15.02.2021, 10:34 **[ТС]**

Спасибо все за помощь.
В итоге получилось следующее. В ApplicationEvents Добавил вызов процедуры Args из модуля Module1

ApplicationEvents

VB.NET
1
2
3
        Private Sub MyApplication_Startup(sender As Object, e As ApplicationServices.StartupEventArgs) Handles Me.Startup
            Args()
        End Sub

Args

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Sub Args()
        Try
            Select Case My.Application.CommandLineArgs.Count
                Case 0
                    'Код программы
                Case 1
                    'Код программы
                    Form1.Close()
            End Select
        Catch ex As Exception
            MsgBox(ex.Message)
            Form1.Close()
        End Try
    End Sub

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@Devils 19 / 19 / 0 Регистрация: 05.02.2015 Сообщений: 175
	09.02.2021, 16:22 [ТС]
	Всем привет. Каким образом выполнить определенные процедуры, без запуска основной формы? Если программе переданы аргументы, то необходимо выполнить ряд процедур/функции и завершить программу, не загружая основную форму. Если же аргументы не переданы программе, то просто запустить основную форму. 0

@Kulma 1732 / 1636 / 166 Регистрация: 25.07.2015 Сообщений: 2,698
	09.02.2021, 18:15
	Devils, точно так же как указано выше , только через ветвление IF При TRUE выполняются процедуры без формы , при FALSE открывается форма, ну или наоборот, на ваше усмотрение. 2

@Devils 19 / 19 / 0 Регистрация: 05.02.2015 Сообщений: 175
	10.02.2021, 09:44 [ТС]
	Kulma, Пардон, изначально затупил На ваше первое сообщение не посмотрел. А как прописать, чтобы проект стартовал именно с процедуры main в module1? Ведь если приложение типа: "Приложение Windows Forms", то указать можно только форму запуска. В данном случае - Form1 0

Запуск процедуры/функции до открытия формы

Решение