ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выход из программы
25 сообщений из 27, страница 1 из 2
  1  все
Выход из программы
    #35976632
Armond
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Armond
Гость
По нажатию на кнопку выхожу из програмы !!!

Application.Quit

Как выдать сообщение ? "Выдействительно хотите выйти из программы ? " и 2 кнопки "ДА" и "НЕТ"
...
Рейтинг: 0 / 0
08.05.2009, 13:19
| Ответить | Цитировать | Написать  
Выход из программы
    #35976650
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
Событие QueryUnload
...
Рейтинг: 0 / 0
08.05.2009, 13:24
| Ответить | Цитировать | Написать  
Выход из программы
    #35976653
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gjghjc
Участник
нУ как -то так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Resp = Msgbox ( "Действительно выйти?", vbYesNo, "Моя прога")

Select case resp
  case Is = vbYes
   Application.Quit
  Case Is = vbNo
  Msgbox "Ага испугался"

end select

С уважением, Николай.
...
Рейтинг: 0 / 0
08.05.2009, 13:26
| Ответить | Цитировать | Написать  
Выход из программы
    #35976695
tesla
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tesla
Участник
Или так:
Код: plaintext
1.
2.
3.
If Msgbox ( "Действительно выйти?", vbYesNo, "Моя прога") = vbYes then
Application.Quit
end if
...
Рейтинг: 0 / 0
08.05.2009, 13:38
| Ответить | Цитировать | Написать  
Выход из программы
    #35976931
Armond
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Armond
Гость
teslaИли так:
Код: plaintext
1.
2.
3.
If Msgbox ( "Действительно выйти?", vbYesNo, "Моя прога") = vbYes then
Application.Quit
end if


А если нет ?

Он окно все равно закрывает
...
Рейтинг: 0 / 0
08.05.2009, 14:58
| Ответить | Цитировать | Написать  
Выход из программы
    #35977211
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
ArmondПо нажатию на кнопку выхожу из програмы !!!

Application.Quit

Как выдать сообщение ? "Выдействительно хотите выйти из программы ? " и 2 кнопки "ДА" и "НЕТ"

если считать объект формы frmMain, то такой код я обычно пишу:
Код: plaintext
1.
2.
3.
4.
5.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
	Dim lngResp As Long
    lngResp = MsgBox("Вы действительно хотите выйти из программы?", vbQuestion + vbOKCancel + vbDefaultButton2)
    Cancel = (lngResp = vbCancel)
End Sub
...
Рейтинг: 0 / 0
08.05.2009, 16:23
| Ответить | Цитировать | Написать  
Выход из программы
    #35977212
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Кстати, почему vbOKCancel а не vbYesNo, потому что, при OKCancel, ESC = vbCancel, а при vbYesNo, vbNo<>ESC почему то, по крайней мере в моей практике так было
и я всегда vbOKCancel использую
...
Рейтинг: 0 / 0
08.05.2009, 16:25
| Ответить | Цитировать | Написать  
Выход из программы
    #35977215
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
у него vba-приложение (excel по-видимому)
...
Рейтинг: 0 / 0
08.05.2009, 16:25
| Ответить | Цитировать | Написать  
Выход из программы
    #35977265
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Konst_Oneу него vba-приложение (excel по-видимому)
не заметил Application.Quit :))
тогда на закрытии приложении событий не видел, можно на закрытии рабочей книги добавить, для события:
Код: plaintext
1.
2.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub
...
Рейтинг: 0 / 0
08.05.2009, 16:44
| Ответить | Цитировать | Написать  
Выход из программы
    #35977415
tesla
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tesla
Участник
Armond teslaИли так:
Код: plaintext
1.
2.
3.
If Msgbox ( "Действительно выйти?", vbYesNo, "Моя прога") = vbYes then
Application.Quit
end if
А если нет ?

Он окно все равно закрывает
Он закрывыть должен только если Msgbox ( "Действительно выйти?", vbYesNo, "Моя прога") возвратит значение vbYes. Если пользователь нажимает нет, то возвращается другое значение и прога не закрывается.
...
Рейтинг: 0 / 0
08.05.2009, 17:56
| Ответить | Цитировать | Написать  
Выход из программы
    #35979047
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
orunbekКстати, почему vbOKCancel а не vbYesNo, потому что, при OKCancel, ESC = vbCancel, а при vbYesNo, vbNo<>ESC почему то, по крайней мере в моей практике так было
и я всегда vbOKCancel использую

Не очень ясен довод...
...
Рейтинг: 0 / 0
11.05.2009, 16:45
| Ответить | Цитировать | Написать  
Выход из программы
    #35979567
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
VladConnorunbekКстати, почему vbOKCancel а не vbYesNo, потому что, при OKCancel, ESC = vbCancel, а при vbYesNo, vbNo<>ESC почему то, по крайней мере в моей практике так было
и я всегда vbOKCancel использую

Не очень ясен довод...

я вообще говорю, про это
к примеру на messagebox с vbYesNo, нельзя нажатием клавиши Esc, нажать vbNo
а в случае vbOkCancel, можно
...
Рейтинг: 0 / 0
12.05.2009, 07:25
| Ответить | Цитировать | Написать  
Выход из программы
    #35980710
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
orunbek,

А, Вы хотите, чтобы обязательно был задействован Esc. OK.
...
Рейтинг: 0 / 0
12.05.2009, 15:02
| Ответить | Цитировать | Написать  
Выход из программы
    #35980723
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
orunbek,

Кстати, в случае vbOkCancel также нельзя нажатием клавиши Esc нажать vbNo!
:0)))
По той простой причине, что его там нет! Там есть только vbOk и vbCancel.
...
Рейтинг: 0 / 0
12.05.2009, 15:06
| Ответить | Цитировать | Написать  
Выход из программы
    #35984140
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Ну я имел в виду и vbCancel
...
Рейтинг: 0 / 0
13.05.2009, 21:14
| Ответить | Цитировать | Написать  
Выход из программы
    #35985957
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
orunbek,

Теперь Вы вконец запутали!
:0)))

Интересно, а как программа выпутывается из ситуации, когда кодировщик имеет ввиду одно, а пишет совсем другое?
...
Рейтинг: 0 / 0
14.05.2009, 16:09
| Ответить | Цитировать | Написать  
Выход из программы
    #35985967
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
VladConnorunbek,

Теперь Вы вконец запутали!
:0)))

Интересно, а как программа выпутывается из ситуации, когда кодировщик имеет ввиду одно, а пишет совсем другое?

она просто работает, но в ней появляются разные "фичи" ;)
...
Рейтинг: 0 / 0
14.05.2009, 16:12
| Ответить | Цитировать | Написать  
Выход из программы
    #35986116
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: VladConn
> Интересно, а как программа выпутывается из ситуации, когда кодировщик имеет ввиду одно, а пишет совсем другое?

Мне когда-то один товарищ сказал:
Компьютер дурак. Делает только то что сказали




Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
14.05.2009, 16:55
| Ответить | Цитировать | Написать  
Выход из программы
    #35986198
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Игорь Горбонос,

Там вообще иррациональные вещи написаны. Например: " vbNo<>ESC почему то ". Немного даже замер...

Мне кажется, в основе там - фундаментальное недопонимание принципов работы MsgBox в VB6. Т.е., в каких случаях какие кнопки полагается использовать и как обрабатывать результат функции MsgBox...

Мы часто попадаем под гипноз внешне простых вещей, не понимая до конца их настоящей природы.
...
Рейтинг: 0 / 0
14.05.2009, 17:10
| Ответить | Цитировать | Написать  
Выход из программы
    #35986507
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: VladConn
> Игорь Горбонос,
>
> Там вообще иррациональные вещи написаны. Например: "vbNo<>ESC почему то". Немного даже замер...
>
> Мне кажется, в основе там - фундаментальное недопонимание принципов работы MsgBox в VB6. Т.е., в каких случаях
> какие кнопки полагается использовать и как обрабатывать результат функции MsgBox...

К сожалению это зачастую так, и к сожалению не только MsgBox, а и всего языка. Люди приходят сюда за готовым кодом,
который можно скопипастить и запустив получить результат и совершенно не задумываются над вопросом а как это работает.
Ведь придя сюда можно получить исправленый код. А то что пишешь ты, Бенедикт и некоторые другие можно пропустить, хотя
читать нужно именно это, а не копипастить код. Многие почему-то считают что раз новичек, значит обязаны помочь.

За державу обидно (с) Верещагин

> Мы часто попадаем под гипноз внешне простых вещей, не понимая до конца их настоящей природы.

К сожаленю это так, можно только добавить "Каждый заблуждается в меру своих возможностей" (с)


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
14.05.2009, 18:32
| Ответить | Цитировать | Написать  
Выход из программы
    #35987137
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
VladConnИгорь Горбонос,

Там вообще иррациональные вещи написаны. Например: " vbNo<>ESC почему то ". Немного даже замер...

Мне кажется, в основе там - фундаментальное недопонимание принципов работы MsgBox в VB6. Т.е., в каких случаях какие кнопки полагается использовать и как обрабатывать результат функции MsgBox...

Мы часто попадаем под гипноз внешне простых вещей, не понимая до конца их настоящей природы.

Вопрос был в том, даже не вопрос а просто высказывание
Что на такую команду, или сообщение
Код: plaintext
1.
2.
3.
4.
5.
If MsgBox("Quit", vbQuestion + vbYesNo) = vbYes Then
	MsgBox "Cancel"
Else
	MsgBox "Confirm"
End If
Нельзя нажатием на клавиатуре кнопки Escape нажать vbNo, я сам сторонник работы без мышки, так как это быстрее, и к примеру в слуае когда выходит какое либо сообщение, которое просит подвердить выполнение данной команды, для меня Escape = отказ от выполнения данной команды, а Enter = подтверждение данной команды.
И вот именно в случае vbYesNo, нажатием кнопки Escape нельзя отменить, т.е. нажать на vbNo
а в случае:
Код: plaintext
1.
2.
3.
4.
5.
If MsgBox("Quit", vbQuestion + vbOKCancel) = vbCancel Then
	MsgBox "Cancel"
Else
	MsgBox "Confirm"
End If
Нажатием Escape я могу выбрать vbCancel, т.е. отменить выполнение данной команды
...
Рейтинг: 0 / 0
15.05.2009, 08:30
| Ответить | Цитировать | Написать  
Выход из программы
    #35987150
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
orunbek,
Не слушай их. Я например, прекрасно тебя понял. Удобство для простого ..., это та вещь про которую многие програмеры забывают.
VladConnфундаментальное недопонимание принципов работы MsgBox в VB6.
Ага, если я спросшу у моих пользователей: Для Вас есть различае между кнопкой vbNo и vbCancel, думаю меня пошлют.
...
Рейтинг: 0 / 0
15.05.2009, 08:39
| Ответить | Цитировать | Написать  
Выход из программы
    #35987171
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
vkodororunbek,
Не слушай их. Я например, прекрасно тебя понял. Удобство для простого ..., это та вещь про которую многие програмеры забывают.
VladConnфундаментальное недопонимание принципов работы MsgBox в VB6.
Ага, если я спросшу у моих пользователей: Для Вас есть различае между кнопкой vbNo и vbCancel, думаю меня пошлют.

+миллььььон :))
ну вот я о том, же, во всех программах в первую очередь стараюсь делать на чайника в плане юзабельности интерфейса и еще для продвинутых пользователей, которые комбинациями клавиш и обычным нажатием на Esc, Enter, Space и т.д. выполнять определенные команды
...
Рейтинг: 0 / 0
15.05.2009, 08:57
| Ответить | Цитировать | Написать  
Выход из программы
    #35992884
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
vkodor,

Они вас не пошлют, если Вы правильно будете использовать и кодировать кноки vbEscape и vbNo.
Это совсем разные кнопки, и используются они в разных ситуациях. А иначе - вполне могут.

Успехов!
:0)
...
Рейтинг: 0 / 0
18.05.2009, 23:28
| Ответить | Цитировать | Написать  
Выход из программы
    #35993073
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Здесь вопрос в том чтобы была возможность отменять операцию нажатием Escape?
...
Рейтинг: 0 / 0
19.05.2009, 07:17
| Ответить | Цитировать | Написать  
25 сообщений из 27, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выход из программы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]