Отмена закрытия формы

[jSergey]

Как сделать чтобы при щелчке левой кнопкой мыши по крестику в правом верхнем
углу формы выдавался запрос на закрытие формы и, в случае отрицательного на
него ответа, форма НЕ ЗАКРЫВАЛАСЬ, т.е.:

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

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Вы действительно хотите выйти из программы?", vbYesNo + _
          vbApplicationModal + vbDefaultButton2 + vbInformation, _
          "Завершение работы") = vbNo Then

        ...
        Что тут должно быть?
        ...

    Else
        Unload Me
    End If
End Sub

[lord0n]

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


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'твой код
End Sub


[tyomitch]

Как сделать чтобы при щелчке левой кнопкой мыши по крестику в правом верхнем
углу формы выдавался запрос на закрытие формы и, в случае отрицательного на
него ответа, форма НЕ ЗАКРЫВАЛАСЬ

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

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Вы действительно хотите выйти из программы?", vbYesNo + _
          vbApplicationModal + vbDefaultButton2 + vbInformation, _
          "Завершение работы") = vbNo Then

        ...
        Cancel = True
        ...

    Else
        'Тут ничего не надо.
    End If
End Sub

[kminas]

А как сделать так, чтобы закрытая форма снова открылась?

Я создал форму, в которую пользователь будет заносить данные,
а, оттуда они будут вставляться в таблицу в Word-е. Она будет закрывать таблицу, которую пользователю нужно видеть. Можно конечно форму сворачивать и разворачивать, сужать и растягивать. А можно ли сделать так, чтобы пользователь, закрыв ее, мог в нужный момент открыть?

[VVitafresh]

Не выгружай форму, а скрывай ее:

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

Me.Hide

[kminas]

Т.е. подвязать эту процедуру на кнопку? А потом как вызвать, командой

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

Me.Show

И куда вывести эту кнопку? Прямо на панель Word-а?

[Vladimir!]

Можно использовать горячие клавиши

[kminas]

Спасибо!