2 Вопроса в 1: Активная форма и Unload

[LexBondAgent007]

Привет всем еще раз! Вот столкнулся с двумя проблемами:

1) (Везде искал - но не нашел):
Предположим: в проекте находиться 17 форм. Как можно узнать - какая форма в данный момент Visible/Видна?
Только плиз не предлагать операторы Case или If

2) А заодно:
Как сделать действие - когда Юзер нажимает на форме на кнопочку Х (т.е. выход) - и главное - чтобы в процессе form unload этот код не повторялся!!!

[hCORe]

1) Коллекция Forms содержит все загруженные формы.

Код: Выделить всё

'в коде формы
Dim objFrm As Form
For Each objFrm In Forms
    If objFrm.Visible Then Debug.Print objFrm.Name
Next

2) события Unload и QueryUnload формы. Лучше использовать последнее.

[LexBondAgent007]

Насчет первого ОГРОМНОЕ СПАСИБ!!! РАБОТАЕТ ВСЕ ОТЛИЧНО!!!!

А вот насчет второго: может не совсем ясно написАл что требуется:

Если Юзер нажмет на кнопочку Х (Выход) то

Код: Выделить всё

tochno = msgbox("Do you really want to quit?", 48, "Confirm")
if tochno = vb.yes then End
Ну или что то вроде...

Вот! А бывают моменты когда форму где прописан вышеуказанный код НУЖНО ВЫГРУЗИТЬ ПРОГРАММНО, т.е.

Код: Выделить всё

Unload Form1

И как сделать так чтобы сообщение появлялось тока тогда, когда Юзер жмет на кнопку Х - а в остальных случаях форма выгружалась без к/л сообщений и других действий?

[hCORe]

Следует выделить код, который ты привел, в отдельную процедуру. И вызывать ее тогда, когда форма "умирает" или ты ее хочешь "прибить". Вот пример:

Код: Выделить всё

'...

Sub ReallyWant()
    Dim tochno As VbMsgBoxResult
    tochno = msgbox("Do you really want to quit?", vbYesNo + vbQuestion, "Confirm")
    if tochno = vbYes then End
End If

'другие действия...

'убийство формы
ReallyWant

[LexBondAgent007]

Все таки ты меня не допонял
Или я торможу: но вот осуществил твой пример - и это ничего не дало - посмотри:
http://lehas-entertainment.narod.ru/unloadform.zip

И сразу поймешь - что я имею ввиду

[ALX_2002]

Может я туплю, а может это нужно ?

Код: Выделить всё

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Чё серьёзно, что ли ??!!", vbYesNo, "КУДА ПОШЁЛ ТО ??") = vbYes Then
Cancel = 0
Else
Cancel = 1
End If
End Sub


[LexBondAgent007]

Не-а - нужно:

If Юзер жмет на крестик то:
Завершение приложения (End)

If Юзер жмет к/л кнопку на форме то:
СледФорма.Visible = Тру
Unload ЭтаФорма

Теперь то все поняли??

[ALX_2002]

Виноват. Не разобрался с вопросом.

Сейчас сижу думаю.

[ALX_2002]

Код: Выделить всё

Dim UNLOADFLAG As Boolean
Private Sub Command1_Click()
UNLOADFLAG = True
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Not UNLOADFLAG Then
If MsgBox("Чё серьёзно, что ли ??!!", vbYesNo, "КУДА ПОШЁЛ ТО ??") = vbYes Then
Cancel = 0
Else
Cancel = 1
End If
End If
End Sub


Вот чего надумал... Но всё таки надо Cancel как нибудь погонять.....

[Vi]

Private Sub Form_QueryUnload(cancel As Integer, unloadmode As Integer)

The unloadmode argument returns the following values:

Constant....................Description
vbFormControlMenu....The user chose the Close command from the Control menu on the form.
vbFormCode..............The Unload statement is invoked from code.
vbAppWindows...........The current Microsoft Windows operating environment session is ending.
vbAppTaskManager....The Microsoft Windows Task Manager is closing the application.
vbFormMDIForm........An MDI child form is closing because the MDI form is closing.
vbFormOwner............A form is closing because its owner is closing.

Код: Выделить всё

Private Sub Form_QueryUnload(cancel As Integer, unloadmode As Integer)
...
If unloadmode = vbFormControlMenu Then
    tochno = msgbox("Do you really want to quit?", vbYesNo + vbQuestion, "Confirm")
    If tochno <> vbYes Then
        cancel = True
...

[LexBondAgent007]

СПАСИБО СПАСИБО!!!
ALX_2002 и Vi

Оба совета отлично работают!!!!!!