Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Задать кнопку по умолчанию в диалоге Inputbox / 7 сообщений из 7, страница 1 из 1
14.05.2017, 11:44
    #39452689
Настаев
Настаев
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задать кнопку по умолчанию в диалоге Inputbox
Всем доброго дня

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

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

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

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

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


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