| Вопрос: Закрытие окна ? | Добавлено: 05.03.07 11:35 |
Автор вопроса:  KreAtoR
|
|
Вопрос оч просто но все же.
Private Sub Form_Unload(Cancel As Integer) Dim answer As Integer answer = MsgBox("Want you like to quit?", 36, "Attention") Select Case answer Case 6 Call Lengthrows Call CDsave.ShowSave Call xmldatei Case 7 ??????????????????????? End Select End Sub Что должно стоять вместо вопросиков чтоб программа не закрывалась а возвращалась в нормальный режим работы? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #1 | Добавлено: 05.03.07 12:00 |
|
На тебе:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Выйти?", vbYesNo, "Выход"  = vbNo Then Cancel = True
End Sub |
||
|
Номер ответа: 2 Автор ответа: KreAtoR Вопросов: 120 Ответов: 438 |
Профиль | | #2 | Добавлено: 05.03.07 12:29 |
| Сенкс Arseny примного благодарен | ||
|
Номер ответа: 3 Автор ответа: »VladikComper«ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #3 | Добавлено: 05.03.07 21:12 |
|
Cancel = True
Отменяет выход... |
||
|
Номер ответа: 4 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #4 | Добавлено: 05.03.07 21:52 |
 А Cancel=False его разрешает
Тогда, для сообразности лучше написать для отмены выхода так Cancel = -1
|
||
Страница: 1 |