Про не простой выход...

[Terarist]

Чтобы выйти через крестик я исользую: (это в ВБ)
Private Sub Form_Unload(cancel As Integer)
spros
End Sub
Private Sub spros()
retSpros = MsgBox("Âû äåéñòâèòåëüíî õîòèòè âûéòè", vbQuestion +_ vbYesNo, "Âûõîä ? ? ?")
If retSpros = 6 Then
End
End If
End Sub
так вот почему когда я жму "нет", он у меня всёравно выходит???

[sanches]

Unload никак не влияет, он только происходит перед закрытием. Юзай QueryUnload

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

Private Sub Form1_QueryUnload(<че-то там>)
Cancel = vbCancel (=0)
End Sub
- вот тогда выхода не будет

[Cyrax]

вот правильный вариант. точно работает...

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

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim retSpros As Integer
    retSpros = MsgBox("Выйти?", vbQuestion Or vbYesNo, "Вопрос???")
    If retSpros = vbNo Then Cancel = True
End Sub

[alibek]

Отменить закрытие можно и в Unload (также установить Cancel=True). Чем удобнее QueryUnload -- можно анализировать причину, вызвавшую Unload; если происходит завершение сессии, то понятно что ничего блокировать не надо.

[Trojan Lord]

if UnloadMode=3 then 'Поступила команда перезагрузки или _ выключения компа

end if

[Max!]

Простите что вмешиваюсь! А если через кнопку можно-ли использовать этот код и будет-ли он работать, код:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim retSpros As Integer
retSpros = MsgBox("Выйти?", vbQuestion Or vbYesNo, "Вопрос???")
If retSpros = vbNo Then Cancel = True
End If

End Sub

[Terarist]

При нажатии кнопки достаточно будет написать только:
Unload me