Как сделать, чтобы Form1 не закрывалась пока не закрылись вспомогающие Form2, Form3

@Техник55 · Регистрация: 11.06.2012

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

Как сделать, чтобы Form1 не закрывалась пока не закрылись вспомогающие Form2, Form3...???

@gaw · 20.07.2012, 21:04

как вариант

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
'Form1
Private Sub Command1_Click()
Form2.Show
Form1.Enabled = False
End Sub
 
'Form2
Private Sub Form_Unload(Cancel As Integer)
Form1.Show
Form1.Enabled = True
End Sub

@Техник55 · 26.07.2012, 21:42 **[ТС]**

Сделал так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
'Form1
Private Sub Command1_Click()
Form2.Show
Form1.Enabled = False
End Sub
 
'Form2
Private Sub Form_Unload(Cancel As Integer)
Form1.Show
Form1.Enabled = True
End Sub

На Form2 у меня listbox. По события туда вывожу время и дату.
Когда нажимаю на кнопку выбрасывается Form2 и на listbox выводиться все как надо!!!
Далее закрываю, ЗАТЕМ снова открываю Form2 и listbox пустой.
Т.е. последнее то что было не сохраняется, полностью очищается...
Получается как будто форму первый раз запустил!!!
Как с этим бороться???!!!

Добавлено через 50 минут
Можно правда сделать типа кнопки "Закрыть" на Form2:

Visual Basic
1
2
3
Private Sub Command1_Click()
Form2.Visible = False
End Sub

Тогда у нас listbox не стирается и форма не отображается. И при запуске Form2 все на месте!!!
Но как тогда сделать что если Form1 закрыл, то все формы закроются автоматически???
А то Form1 закрываешь, а остальные формы в работе???!!!
Может другие решения есть???!!!

@gaw · 26.07.2012, 21:47

Сообщение от Техник55

Может другие решения есть

есть, и больше одного
только напишите задачу как можно полнее, а то тема и так уже многостраничная

@Апострофф · 26.07.2012, 21:47

Так попробуй?

Visual Basic
1
2
3
4
5
6
7
8
9
'Form1
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Visual Basic
1
2
3
4
5
6
'Form2
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
Me.Hide
Form1.Show
End Sub

@Техник55 · 26.07.2012, 22:14 **[ТС]**

Все ОК.
Если не затруднит подскажи те строчки кот. сохраняют на Form2 значения когда мы ее даже закрыли???
Это хорошо что пошло, но хочется не тупо копировать, а понять. Просто этих положений нет в книгах, а ЗНАТЬ НАДО!!!

@oxpannik · 26.07.2012, 22:19

Когда закрываешь hide то да.

@Апострофф · 26.07.2012, 22:27

Visual Basic
1
2
3
4
5
6
'Form2
Private Sub Form_Unload(Cancel As Integer)
Cancel = True 'не выгружаем форму
Me.Hide 'а скрываем, поэтому данные не теряются!
Form1.Show
End Sub

@Техник55 · 26.07.2012, 22:39 **[ТС]**

А чтобы при нажатии кнопки Form1 не исчезала, а просто сверху появлялась Form2???!!!

@oxpannik · 26.07.2012, 22:50

тогда

Visual Basic
1
me.hide

не нужен

@Техник55 · 27.07.2012, 00:38 **[ТС]**

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

тогда

Visual Basic
1
me.hide

не нужен

Не правда если убрать, то все равно когда вызываешь Form2, то Form1 исчезает!!!!
Так что вы ошиблись!!!

@Апострофф · 27.07.2012, 06:54

Сообщение от Техник55

А чтобы при нажатии кнопки Form1 не исчезала, а просто сверху появлялась Form2

Visual Basic
1
2
3
4
5
6
7
8
9
'Form1
Private Sub Command1_Click()
Form2.Show
'Form1.Hide
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Visual Basic
1
2
3
4
5
6
'Form2
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
Form2.Hide
'Form1.Show
End Sub

Неужели неочевидно?

@Техник55 · 27.07.2012, 19:01 **[ТС]**

Еще кое что: Если я открываю Form2, а затем закрываю у меня автоматически сворачивается Form1.
И для работы дальше нужно разворачивать...
Это не принципиально, но хочется избавиться, может свойства где нибудь поправить надо???

Добавлено через 4 часа 30 минут
Видимо это не поправимо...

@oxpannik · 28.07.2012, 00:58

Покажите что у вас в итоге вышло.

@Техник55 · 28.07.2012, 08:16 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
'Form1
Private Sub mnuНачальник_Click()
Form3.Show
Form1.Enabled = False
End Sub
 
Private Sub Command1_Click()
Form2.Show
Form1.Enabled = False
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub mnuИнженер_Click()
Form4.Show
Form1.Enabled = False
End Sub
Private Sub mnuУПУ_Click()
Form5.Show
Form1.Enabled = False
End Sub
 
'Form2
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
Form2.Hide
'Form1.Show
Form1.Enabled = True
End Sub
' И так далее для других форм 3,4,5

@oxpannik · 28.07.2012, 12:15

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

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@Техник55 7 / 7 / 1 Регистрация: 11.06.2012 Сообщений: 352

	Как сделать, чтобы Form1 не закрывалась пока не закрылись вспомогающие Form2, Form3 20.07.2012, 17:53. Показов 1720. Ответов 15 Метки нет (Все метки) Как сделать, чтобы Form1 не закрывалась пока не закрылись вспомогающие Form2, Form3...??? 0

@Техник55 7 / 7 / 1 Регистрация: 11.06.2012 Сообщений: 352
	26.07.2012, 22:14 [ТС]
	Все ОК. Если не затруднит подскажи те строчки кот. сохраняют на Form2 значения когда мы ее даже закрыли??? Это хорошо что пошло, но хочется не тупо копировать, а понять. Просто этих положений нет в книгах, а ЗНАТЬ НАДО!!! 0

@oxpannik 10 / 10 / 0 Регистрация: 28.05.2012 Сообщений: 69
	26.07.2012, 22:19
	Когда закрываешь hide то да. 1

@Техник55 7 / 7 / 1 Регистрация: 11.06.2012 Сообщений: 352
	26.07.2012, 22:39 [ТС]
	А чтобы при нажатии кнопки Form1 не исчезала, а просто сверху появлялась Form2???!!! 0

@Техник55 7 / 7 / 1 Регистрация: 11.06.2012 Сообщений: 352
	27.07.2012, 19:01 [ТС]
	Еще кое что: Если я открываю Form2, а затем закрываю у меня автоматически сворачивается Form1. И для работы дальше нужно разворачивать... Это не принципиально, но хочется избавиться, может свойства где нибудь поправить надо??? Добавлено через 4 часа 30 минут Видимо это не поправимо... 0

@oxpannik 10 / 10 / 0 Регистрация: 28.05.2012 Сообщений: 69
	28.07.2012, 00:58
	Покажите что у вас в итоге вышло. 0

@oxpannik 10 / 10 / 0 Регистрация: 28.05.2012 Сообщений: 69
	28.07.2012, 12:15
	В ваших иерархиях форм я запутался и не пойму где та или иная кнопка, тут всё в ваших руках, совет: Пробуйте пошаговый режим, в вашем случае он как нельзя кстати. 0