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

@Shkap · Регистрация: 13.11.2010

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

такая проблема - когда я нажимаю крестик в правом верхнем углу прога не выгружаеться из памяти, как это исправить?

@Dzhej-Dzhej · 22.03.2011, 14:23

попробуйте

Visual Basic
1
2
3
Private Sub Form_Unload(Cancel As Integer)
    End
End Sub

@Shkap · 22.03.2011, 14:30 **[ТС]**

спс работат)

@Shkap · 24.03.2011, 14:15 **[ТС]**

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

PureBasic
1
2
3
Private Sub Form_Unload(Cancel As Integer)
Form1.Show
End Sub

то выходит и не показываеться исчо раз, а вот если создать две формы и в куаждой прописать открытие другой то они друг друга запускают получаеться замкнутый круг но вот както с двумя формами ниочень, с одной можно сделать что на кнопочку жмакашь, а форма загружат ся опять?))

@gaw · 24.03.2011, 14:50

не совсем понял

Visual Basic
1
2
3
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub

@gitarillo · 24.03.2011, 15:46

Shkap,
End - не очень хорошая команда.
Ой не верно. Очень не хорошая команда.

@Shkap · 26.03.2011, 22:05 **[ТС]**

gitarillo, а я то тут при чем, что мне сказали, то я и попробовал, то что нуно. а чем она плоха?
gaw, я так понял код отменяет закрытие, ну или саму процедуру? это я к чему можно например

PureBasic
1
2
3
private sub blablabla
cancel = 1
end sub

и эта процедура будет выполняться только до сancel =1, или вощпе не будет выолняться?

@gitarillo · 26.03.2011, 22:09

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

а чем она плоха

Она вызывает аварийное завершение программы. Типа как в процессах убить. Для выгрузки орм надо использовать Unload. Это по типу как выключать компьютер. Так вот End равносильно выдернул из разетки, а нормальная выгрузка - правильное выключение.

@gaw · 26.03.2011, 22:11

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

Private Sub Form_Unload(Cancel As Integer)

Cancel As Integer - параметр процедуры Form_Unload

@Shkap · 26.03.2011, 22:23 **[ТС]**

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub
те вот эта какбы выключает нормально комп?) а как мне сделать чтобы при нажатии на крестик программа снова запускала туже форму? (какбы не рабочая кнопка крестик)

@gitarillo · 26.03.2011, 22:26

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

снова запускала туже форму?

Типа так что ли?

Visual Basic
1
2
3
4
5
6
7
Private Sub Form_Load()
MsgBox "Запуск"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
Call Form_Load
End Sub

@gaw · 26.03.2011, 22:33

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

а как мне сделать чтобы при нажатии на крестик программа снова запускала туже форму?

ты пробовал закрыть форму с этим кодом ?
Cancel = 1 --- форма не выгружается
Cancel = 0 --- выгружается

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

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub

Добавлено через 5 минут
по ходу вопрос, а закрывать все же как думаешь ?

@Shkap · 27.03.2011, 08:37 **[ТС]**

спс разобрался то что нужно было (для второго вопроса)
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Shkap Оранжевый портфель. 60 / 58 / 47 Регистрация: 13.11.2010 Сообщений: 459

	закрытие программы 22.03.2011, 14:19. Показов 7605. Ответов 12 Метки нет (Все метки) такая проблема - когда я нажимаю крестик в правом верхнем углу прога не выгружаеться из памяти, как это исправить? 0

@Shkap Оранжевый портфель. 60 / 58 / 47 Регистрация: 13.11.2010 Сообщений: 459
	22.03.2011, 14:30 [ТС]
	спс работат) 0

@gitarillo 755 / 554 / 48 Регистрация: 17.06.2010 Сообщений: 1,041 Записей в блоге: 1
	24.03.2011, 15:46
	Shkap, End - не очень хорошая команда. Ой не верно. Очень не хорошая команда. 0

@Shkap Оранжевый портфель. 60 / 58 / 47 Регистрация: 13.11.2010 Сообщений: 459
	26.03.2011, 22:23 [ТС]
	Private Sub Form_Unload(Cancel As Integer) Cancel = 1 End Sub те вот эта какбы выключает нормально комп?) а как мне сделать чтобы при нажатии на крестик программа снова запускала туже форму? (какбы не рабочая кнопка крестик) 0

@Shkap Оранжевый портфель. 60 / 58 / 47 Регистрация: 13.11.2010 Сообщений: 459
	27.03.2011, 08:37 [ТС]
	спс разобрался то что нужно было (для второго вопроса) Private Sub Form_Unload(Cancel As Integer) Cancel = 1 End Sub 0