| |
|
|
| | ВЫХОДИМ ЕРЕЗ МЕНЮ ТАК:
Function ExitProgram()
Dim Msg As String, Style As Integer, Response As Integer
Msg = "Вы уверенны, что хотите выйти ?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Response = MsgBox(Msg, Style, UserName)
If Response = vbYes Then
Application.Quit
End If
End Function | |
| |
| |
| |
|
|
| | меню-сервис-параметры-общие-сжимать призакрытии | |
| |
| |
| |
|
|
| | А это аналагично программному сжатию работает?
я просто не привык этими настройками пользоваться | |
| |
| |
| |
|
|
| | >> А это аналагично программному сжатию работает
не переживайте, механизм один и тот же | |
| |
| |
