Окно сообщения

[vladimirr]

Как сделать, чтобы при возникновении окна сообщения с вопросом
о сохранении документа (как в оффисе) при нажатии на кнопку "нет"
программа закрывалась, а при нажатии на кнопку "да" документ сохранялся.
Я думал, что при передаче в msgbox параметра vbYesNo
идёт разделение на vbYes (if vbYes then imlList.showsave ) и vbNo,
но таких констант, видимо, нет.

[Cyrax]

Вот примерный код для события Form_QueryUnload()

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

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Dim lRes As Long
 
  lRes = MsgBox("Файл был изменен. Сохранить изменения?", vbYesNoCancel)
  Select Case lRes
  Case vbYes
    MsgBox "Сохранение файла"
    ' вызов процедуры сохранения файла
  Case vbNo
    MsgBox "Выходим без сохранения файла"
    ' ничего не делаем. просто выходим
  Case vbCancel
    MsgBox "Отмена закрытия файла и/или приложения"
    Cancel = True ' чтобы отменить выгрузку формы
  End Select
End Sub

[GSerg]

if msgbox("ну чё, сохраним?,vbyesno)=vbyes then ... else ...

Упс, немножко опередили