Полтергейст с QueryClose

@adonix100 · Регистрация: 09.09.2017

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

Доброго утра.
имеется две формы
в первой

Visual Basic

Private Sub CommandButton1_Click()
UserForm1.Hide
Unload UserForm1
UserForm2.Show
End Sub

во второй

Visual Basic

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
UserForm2.Hide
Unload UserForm2
UserForm1.Show
End Sub

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

прошу совета

toiai · 23.09.2017, 09:08

Зачем же выгружать из памяти

Visual Basic

1 2	Unload UserForm1 Unload UserForm2

закоментируй или удали строку

@adonix100 · 23.09.2017, 09:26 **[ТС]**

если просто hide то текстбоксы надо очищать вручную, а тут "раз и все"
причем все то же самое, но повешенное на кнопку "отмена" работает нормально
да и хочется физику неверной работы понять

~~Остап Бонд~~ · 23.09.2017, 09:56

adonix100, попробуйте дополнить одну строку нулем

Visual Basic

1	UserForm1.Show 0

?..

@adonix100 · 23.09.2017, 10:09 **[ТС]**

работает нормально, спасибо
а в чем связь модальности и QueryClose?

@Burk · 23.09.2017, 20:56

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

UserForm2.Show

какое же здесь чудо, если стоит этот оператор. Если даже вы не поставили Load UserForm, то метод Show сделает это, сначала загрузит, а потом покажет

Добавлено через 4 минуты
adonix100, можно перед этим оператором поставить условие, если не загружена Form2, то не показывать

Добавлено через 1 час 31 минуту
adonix100, например так

Visual Basic

Private Sub CommandButton1_Click()
Unload UserForm1
If Not TF Then
  TF = True: UserForm2.Show
End If
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload UserForm2
UserForm1.Show
End Sub
 
Public TF As Boolean это описание поставить в [U]программный[/U] модуль (не в код формы и не ЭТА
                КНИГА)      тогда в нужный момент снова можно повторить показ формы2 TF=False

@adonix100 0 / 0 / 0 Регистрация: 09.09.2017 Сообщений: 62
	23.09.2017, 09:26 [ТС]	3
	если просто hide то текстбоксы надо очищать вручную, а тут "раз и все" причем все то же самое, но повешенное на кнопку "отмена" работает нормально да и хочется физику неверной работы понять 0

@adonix100 0 / 0 / 0 Регистрация: 09.09.2017 Сообщений: 62
	23.09.2017, 10:09 [ТС]	5
	работает нормально, спасибо а в чем связь модальности и QueryClose? 0

	23.09.2017, 20:56

Полтергейст с QueryClose

Решение