Форма при первом запуске

@--ТУРБО-- · Регистрация: 19.03.2017

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

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

@Orlangur · 22.03.2017, 18:17

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

@OwenGlendower · 22.03.2017, 18:22

--ТУРБО--, нужно открыть свойства проекта, нажать кнопку "View application events" - это создаст в проекте файл ApplicationEvents.vb. Открыть это файл и добавить туда метод OnCreateMainForm

VB.NET
1
2
3
4
5
6
7
8
Protected Overrides Sub OnCreateMainForm()
    If не-первый-запуск Then
        Me.MainForm = Global.vb_firstForm.Form2
    Else
        Me.MainForm = Global.vb_firstForm.Form1
        ' запомнить что первый запуск был сделан
    End If
End Sub

Проверку на первый запуск можно сделать с помощью хранения признака в реестре, создавать файл в профиле пользователя или использовать систему конфигурации. Запоминание того что первый запуск уже был сделан можно в событие FormClosed первой формы для большей надежности.

Добавлено через 1 минуту
Global.vb_firstForm.FormNN это полные названия классов. Их конечно нужно заменить на свои классы

@--ТУРБО-- · 22.03.2017, 18:22 **[ТС]**

OwenGlendower, не могли бы объяснить подробнее (как про ApplicationEvents.vb) про проверку на первый запуск?

@OwenGlendower · 22.03.2017, 18:23

--ТУРБО--, могу если ты задашь конкретные вопросы

@--ТУРБО-- · 22.03.2017, 18:33 **[ТС]**

OwenGlendower,

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

Проверку на первый запуск можно сделать с помощью хранения признака в реестре, создавать файл в профиле пользователя или использовать систему конфигурации. Запоминание того что первый запуск уже был сделан можно в событие FormClosed первой формы для большей надежности.

Ничего из этого не понял. тупой я чтоли.... Поподробнее пожалуйста!)

Добавлено через 6 минут
OwenGlendower, Protected Overrides Sub OnCreateMainForm
имеет несколько определений с одинаковыми сигнатурами.
Что делать?

@XIST · 22.03.2017, 18:39

OwenGlendower, после ребилда насколько я помню все слетает в стандарт

@--ТУРБО-- · 22.03.2017, 18:42 **[ТС]**

XIST, а ты знаешь как сделать?

@OwenGlendower · 22.03.2017, 18:52

Сообщение от --ТУРБО--

Ничего из этого не понял. тупой я чтоли.... Поподробнее пожалуйста!)

Извини, но это снова неконкретный вопрос. Объяснять всё подряд я не буду. Если ничего из перечисленного непонятно, то могу только посоветовать прочитать книгу по VB.NET где описывается разработка Windows Forms приложений.

Сообщение от --ТУРБО--

Protected Overrides Sub OnCreateMainForm
имеет несколько определений с одинаковыми сигнатурами.
Что делать?

Да ладно. Я вижу только одно. Именно для него я и привел пример.

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

после ребилда насколько я помню все слетает в стандарт

Ты о чем?

@XIST · 22.03.2017, 19:00

OwenGlendower, после ребилда насколько я помню все слетает в стандартOwenGlendower,
о ApplicationEvents, после ребилда он будет пустой (с изначальными функциями)

@OwenGlendower · 22.03.2017, 19:02

XIST, проверил - ничего не пропадает

@XIST · 22.03.2017, 19:03

да? ладно, в vs2008 у меня пропадало, но беру слова обратно

@--ТУРБО-- · 22.03.2017, 20:43 **[ТС]**

Разобрался сам.
Создал файл текстовый system32bushnev.txt

И текстбокс с текстом 123 в форме, а также кнопку с текстом Да! (там наверху кнопки Label с вопросом: вы тут впервые?) и если пользователь нажимает на кнопку, то:

VB.NET
1
2
3
4
5
6
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button2.Visible = True
        If TextBox1.Text = "123" Then
            My.Computer.FileSystem.WriteAllText("system32bushnev.txt", TextBox1.Text, True)
        End If
    End Sub

и затем...

VB.NET
1
2
3
4
5
6
7
8
9
10
    Private Sub start_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        My.Computer.FileSystem.ReadAllText("system32bushnev.txt")
        If My.Computer.FileSystem.ReadAllText("system32bushnev.txt") = "123" Then
            Me.Hide()
            Me.ShowInTaskbar = False
            Me.WindowState = FormWindowState.Minimized
            license.Show()
        End If
    End Sub

Все робит. Всем спасибо за помощь!

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@--ТУРБО-- 6 / 6 / 0 Регистрация: 19.03.2017 Сообщений: 118 Записей в блоге: 1

	Форма при первом запуске 22.03.2017, 17:57. Показов 1720. Ответов 12 Метки нет (Все метки) Нужно сделать так, чтобы при самом первом запуске показалась первая форма. Все остальные запуски - это форма никогда бы не появлялась 0

@Orlangur Лень — мое второе и 3226 / 2414 / 687 Регистрация: 28.11.2014 Сообщений: 3,600 Записей в блоге: 3
	22.03.2017, 18:17
	свойства проекта - стартовая форма, далее после выполнения некоторых действий записать какой-либо параметр в реестр / файл с настройками и при загрузке этой самой формы делать проверку, если параметр есть - показывать другую форму, а эту закрывать. Так же выставить в свойствах проекта - закрывать приложение после закрытия последней формы, по умолчанию - при закрытии стартовой формы. 1

@--ТУРБО-- 6 / 6 / 0 Регистрация: 19.03.2017 Сообщений: 118 Записей в блоге: 1
	22.03.2017, 18:22 [ТС]
	OwenGlendower, не могли бы объяснить подробнее (как про ApplicationEvents.vb) про проверку на первый запуск? 0

@OwenGlendower Администратор 18241 / 14155 / 5366 Регистрация: 17.03.2014 Сообщений: 28,843 Записей в блоге: 1
	22.03.2017, 18:23
	--ТУРБО--, могу если ты задашь конкретные вопросы 0

@XIST 1960 / 1061 / 148 Регистрация: 01.10.2009 Сообщений: 3,589 Записей в блоге: 1
	22.03.2017, 18:39
	OwenGlendower, после ребилда насколько я помню все слетает в стандарт 0

@--ТУРБО-- 6 / 6 / 0 Регистрация: 19.03.2017 Сообщений: 118 Записей в блоге: 1
	22.03.2017, 18:42 [ТС]
	XIST, а ты знаешь как сделать? 0

@XIST 1960 / 1061 / 148 Регистрация: 01.10.2009 Сообщений: 3,589 Записей в блоге: 1
	22.03.2017, 19:00
	OwenGlendower, после ребилда насколько я помню все слетает в стандартOwenGlendower, о ApplicationEvents, после ребилда он будет пустой (с изначальными функциями) 0

@OwenGlendower Администратор 18241 / 14155 / 5366 Регистрация: 17.03.2014 Сообщений: 28,843 Записей в блоге: 1
	22.03.2017, 19:02
	XIST, проверил - ничего не пропадает 0

@XIST 1960 / 1061 / 148 Регистрация: 01.10.2009 Сообщений: 3,589 Записей в блоге: 1
	22.03.2017, 19:03
	да? ладно, в vs2008 у меня пропадало, но беру слова обратно 0