ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Задать кнопку по умолчанию в диалоге Inputbox
7 сообщений из 7, страница 1 из 1
Задать кнопку по умолчанию в диалоге Inputbox
    #39452689
Настаев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настаев
Гость
Всем доброго дня

Часто использую в коде предупреждения типа:
If MsgBox("Продолжить?", vbYesNo, "Предупреждение") = vbNo Then Exit Sub

Иногда нужно сделать, чтобы кнопка по умолчанию была "Нет"
Кто-нибудь знает, как это возможно?
...
Рейтинг: 0 / 0
14.05.2017, 11:44
| Ответить | Цитировать | Написать  
Задать кнопку по умолчанию в диалоге Inputbox
    #39452690
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
Настаев,
тут
http://www.sql.ru/forum/247599/kak-postavit-v-msgbox-e-knopku-po-umolchaniu
гляньте
...
Рейтинг: 0 / 0
14.05.2017, 11:59
| Ответить | Цитировать | Написать  
Задать кнопку по умолчанию в диалоге Inputbox
    #39452691
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Настаев,

Код: vbnet
1.
2.
3.
4.
5.
6.
Dim Msg, style, title, Response, MyString
Msg = "ТЕКСТ СООБЩЕНИЯ"
style = vbYesNo + vbCritical + vbDefaultButton2    ' Кнопки.
title = "ЗАГОЛОВОК ОКНА СООБЩЕНИЯ"              ' Заголовок.
Response = MsgBox(Msg, style, title)
If Response = vbNo Then Exit Sub                        ' Нажата кнопка "Нет" (Yes).



В этом примере по умолчанию НЕТ, чтоб было ДА вместо vbDefaultButton2 написать vbDefaultButton1
...
Рейтинг: 0 / 0
14.05.2017, 12:00
| Ответить | Цитировать | Написать  
Задать кнопку по умолчанию в диалоге Inputbox
    #39452694
Настаев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настаев
Гость
vmag, спасибо. То, что нужно
...
Рейтинг: 0 / 0
14.05.2017, 12:09
| Ответить | Цитировать | Написать  
Задать кнопку по умолчанию в диалоге Inputbox
    #39452697
Настаев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настаев
Гость
guest_rusimport, спсибо. Всё оказалось очень просто )
...
Рейтинг: 0 / 0
14.05.2017, 12:11
| Ответить | Цитировать | Написать  
Задать кнопку по умолчанию в диалоге Inputbox
    #39452698
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
vmag,
только поместил в буфер,хотел опубликовать-апаздал (пример не из HELPа А97?-самый лучший, по моему)
...
Рейтинг: 0 / 0
14.05.2017, 12:15
| Ответить | Цитировать | Написать  
Задать кнопку по умолчанию в диалоге Inputbox
    #39452700
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
sdku,

Откуда уже не помню (но не сам придумал - однозначно), то, что самый лучший - согласен, очень выручает, когда нужно переспросить юзера перед тем как он решил снести что-либо... причем можно выкинуть юзеру свои соображения, чтобы он принял правильное решение путем:

Код: vbnet
1.
Msg = "ТЕКСТ СООБЩЕНИЯ" & Chr(13) & "Продолжение сообщения с новой строки" & Chr(13) & "Продолжение сообщения с новой строки"
...
Рейтинг: 0 / 0
14.05.2017, 12:25
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Задать кнопку по умолчанию в диалоге Inputbox
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=76&tid=1612449]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 347ms
total:  475ms
созд. / загр.: 475ms
x
x
Закрыть


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