Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
5 / 5 / 1
Регистрация: 30.03.2015
Сообщений: 118

Корректное закрытие многооконной программы

30.04.2015, 14:00. Показов 2558. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем привет, вот озадачился как можно через нажатие на стандартную кнопку "закрытие окна" корректно закрыть программу, на просторах форума нашел код
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form2
    Dim finalyexit2 As Boolean = False
    Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If finalyexit2 = True Then Exit Sub ' это чтобы при вызове метода Application.Exit, когда еще раз сработает событие FormClosing, не вывалилось повторно окно с вопросом
        If MsgBox("Вы дествительно хотите выйти из программы?", MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton1 Or MsgBoxStyle.Question) = MsgBoxResult.Yes Then
            finalyexit2 = True
            Application.Exit()
        ElseIf MsgBoxResult.No Then
            e.Cancel = True
        End If
    End Sub
End class
у меня 5 форм, на каждой форме я вставил такой код, переход из формы в форму осуществляется о принципу
VB.NET
1
2
Form*.Show()
Me.Hide()
и указанный код закрытия формы работает не корректно, он по 2 раза выводит
VB.NET
1
If MsgBox("Вы действительно хотите выйти из программы?")
Вопрос к знатокам как исправить данную ситуацию, и желательно с разъяснениями того что вы исправили
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
30.04.2015, 14:00
Ответы с готовыми решениями:

Корректное закрытие Excel
Здравствуйте! Подскажите пожалуйста, как закрыть Excel, чтобы он уходил с процессов? Спасает лишь killProcess, но говорят, что это не...

Корректное закрытие программы при завершении работы Windows
Моя программа при старте сворачивается в трей и периодически выполняет определенные операции. Окно приложения можно открыть при щелчке по...

Корректное закрытие Excel
Как правильно закрыть Excel приложение Пробывал ExcelApplication1->Quit(); ExcelApplication1->Disconnect(); ...

7
39 / 40 / 20
Регистрация: 30.09.2013
Сообщений: 141
30.04.2015, 14:16
Sersevik, вам нужно сначала определиться, когда вы хотите выходить из программы. Пр закрытии любой формы? Или последней из открытых?

Ваше Me.Hide - не закрывает форму, а прячет её.

Да и код ваш жутко усложнён, мне кажется. В вашем случае, хватило бы и:

VB.NET
1
If MsgBox("Вы действительно хотите выйти из программы?", MsgBoxStyle.YesNo, "Выход и программы") = MsgBoxResult.Yes then End
0
5 / 5 / 1
Регистрация: 30.03.2015
Сообщений: 118
30.04.2015, 14:33  [ТС]
FlegmaSpirit, код нужен, чтобы когда пользователь программы нажал на закрытие окна, программа поинтересовалась осознано ли пользователь хочет закрыть программу, то что формы не закрываются, а прячется я понимаю, из за этого и глюк, что сообщение выходит 2 раза, если сделать Me.Close(), то срабатывает данный код и программа воспринимает это не как закрытие формы и переход на новую а как закрытие всей программы
Цитата Сообщение от FlegmaSpirit Посмотреть сообщение
когда вы хотите выходить из программы.
из последней открытой
0
 Аватар для Nachrichter
649 / 601 / 92
Регистрация: 19.03.2012
Сообщений: 1,128
30.04.2015, 14:48
Sersevik, если я правильно понял, то при закрытии любого окна программа завершает свою работу?
0
5 / 5 / 1
Регистрация: 30.03.2015
Сообщений: 118
30.04.2015, 15:25  [ТС]
Nachrichter, да закрытие открытой формы должно вызвать закрытие программы (открыта всегда только одна форма)
0
39 / 40 / 20
Регистрация: 30.09.2013
Сообщений: 141
30.04.2015, 15:47
Тогда отключите ControlBox для всех форм и везде создайте кнопку "Выход" в которую пропишите код, который я вам уже привёл выше. Это будет наиболее простое и надёжное решение, на мой взгляд.

Если хотите усложнить, создайте флаг, который будет подниматься при закрытии формы, которое ведёт к открытию другой формы и ЗАКРЫВАЙТЕ предыдущую, а не прячьте. А вот в случае, когда пользователь будет тыкать на "крест", флаг поднят не будет и вы выйдете из приложения даже с вашим избыточным кодом.
0
5 / 5 / 1
Регистрация: 30.03.2015
Сообщений: 118
30.04.2015, 16:03  [ТС]
FlegmaSpirit, код сложный не просто так, я его пока предоставил в упрощенной форме, а вообще он будет дополнен третьей кнопкой (Выход без сохранения, сохранить и выйти, отмена), отключение ControlBox, пробовал, не устроило, отказался от этой идеи. Делать отдельную кнопку, честно говоря не хотелось бы. В основном этот код, как защита от нечаянного нажатия кнопки закрытия (в 1С торговля 8.3 такое есть, хочешь закрыть окно а закрывается вся программа, если убрать галочку о подтверждении закрытия)
0
 Аватар для Nachrichter
649 / 601 / 92
Регистрация: 19.03.2012
Сообщений: 1,128
30.04.2015, 16:38
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Sersevik, попробуйте так: в каждой форме заведите переменную типа Boolean со значением False.
При закрытии формы проверяйте причину закрытия:
VB.NET
1
2
3
4
If e.CloseReason = CloseReason.UserClosing Then 'если форму закрывает пользователь
    'тут задать вопрос о закрытии программы, если ответ "Да", 
    'то передать в остальные формы значение True для переменной
End If
остальное у Вас есть, дерзайте!
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
30.04.2015, 16:38
Помогаю со студенческими работами здесь

Корректное закрытие файла Excel
Здравствуйте, уважаемые участники! Подскажите, пожалуйста как корректно закрыть файл .xls в vba? Файл открывается следующим кодом: ...

Корректное закрытие книги Excel
Private Sub Кнопка_ДО_Click() Dim sFileName_PR As String Dim lLastRow As Integer sPath = CurrentProject.Path ...

Корректное закрытие дополнительного потока
Всем здравствуйте. type { TComPortPoolingThread } TComPortPoolingThread = class(TThread) private protected ...

DataReport - корректное закрытие объекта
После вывода на печать DataReport1 выполняю Set DataReport1= Nothing. (для того чтобы при следующем выполнении прошла процедура...

Корректное закрытие окна Excel
Добрый день! Подскажите, пожалуйста, каким образом можно решить следующую задачу. Я написал скрипт (макрос), который...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru