ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Недокументированный MSGBox. Красивее....
8 сообщений из 8, страница 1 из 1
Недокументированный MSGBox. Красивее....
    #32415871
Фотография Rafa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rafa
Участник
Единственное польза от такого нестандартного способа создания -
это первая секция (строка) выделена жирным шрифтом, что бывает красиво и нестандартно. ;)

Dim lngReturnValue As Long

lngReturnValue = Eval("MsgBox(""Это жирный шрифт заголовка секции.@" & _
"Это простой шрифт тела секции. Похоже, есть разделение на три секции.@" & _
"Значок, клавиши и выбор надо ставить суммой цифр."",289,""Это заголовок MsgMox'a"")")

MsgBox lngReturnValue

если еще кно-нить знает про этот способ или может дополнить милости прошу.....
...
Рейтинг: 0 / 0
19.02.2004, 17:06
| Ответить | Цитировать | Написать  
Недокументированный MSGBox. Красивее....
    #32415908
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Daf
Участник
А почему Недокументированный .?
В Helpe Access 97 все прекрасно расписано.
...
Рейтинг: 0 / 0
19.02.2004, 17:18
| Ответить | Цитировать | Написать  
Недокументированный MSGBox. Красивее....
    #32415924
Фотография Rafa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rafa
Участник
Странно, я не читал хелпу 97, по причине того, что не успел поработать с этой версией......Но вроде в 2000 ничего такого не было ?
А можешь что нибудь добавить ?
...
Рейтинг: 0 / 0
19.02.2004, 17:22
| Ответить | Цитировать | Написать  
Недокументированный MSGBox. Красивее....
    #32415926
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Daf
А почему Недокументированный.?
В Helpe Access 97 все прекрасно расписано


В XP и 2003 форматирование msgbox'ов обычным способом не работает, приходится таким образом :)
...
Рейтинг: 0 / 0
19.02.2004, 17:23
| Ответить | Цитировать | Написать  
Недокументированный MSGBox. Красивее....
    #32416008
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Daf
Участник
Действительно... Нужно использовать Eval и Двойные кавычки.

Дополнение:


Вот это выражение и так выведет сообщение:
lngReturnValue = Eval("MsgBox(""Это жирный шрифт заголовка секции.@" & _
"Это простой шрифт тела секции. Похоже, есть разделение на три секции.@" & _
"Значок, клавиши и выбор надо ставить суммой цифр."",289,""Это заголовок MsgMox'a"")")

А вот эта строчка : MsgBox lngReturnValue выведет "1" или чего нибудь еще... Она лишняя.

P.S. В 97 предложенная конструкция работает.
...
Рейтинг: 0 / 0
19.02.2004, 18:08
| Ответить | Цитировать | Написать  
Недокументированный MSGBox. Красивее....
    #32429549
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Daf
Участник
Вопрос.

А как быть в таком случае:

В 97 Access'е вот это красиво разбивается:

Код: plaintext
1.
2.
3.
4.
5.
Msg = Это жирный шрифт заголовка секции.@ " & _ 
& " Это образует основной текст сообщения под заголовком.@ " &_ 
& " Это выводит обычным шрифтом текс сообщения под заголовком "
                                 Style = vbYesNo + vbQuestion     
                                 Title = " Внимание"   
                                 response = MsgBox(Msg, Style, Title)


А как это разбиение сделать в 2000 или XP?
...
Рейтинг: 0 / 0
03.03.2004, 14:16
| Ответить | Цитировать | Написать  
Недокументированный MSGBox. Красивее....
    #32429650
АлексейЕ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейЕ
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Function FormattedMsgBox( _
                        Prompt As String, _
                        Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
                        Optional Title As String = vbNullString, _
                        Optional HelpFile As Variant, _
                        Optional Context As Variant) _
 As VbMsgBoxResult
    If IsMissing(HelpFile) Or IsMissing(Context) Then
        FormattedMsgBox = Eval( "MsgBox("  "" & Prompt & _
         "  "", "  & Buttons &  ", "  "" & Title & "  "")" )
    Else
        FormattedMsgBox = Eval( "MsgBox("  "" & Prompt & _
         "  "", "  & Buttons &  ", "  "" & Title & "  "", "  "" & _
         HelpFile & "  "", "  & Context &  ")" )
    End If
End Function


Вызов

FormattedMsgBox("Первая линия@Вторая линия@Третья линия")

Взято из http://www.trigeminal.com/usenet/usenet015.asp?1049
...
Рейтинг: 0 / 0
03.03.2004, 15:02
| Ответить | Цитировать | Написать  
Недокументированный MSGBox. Красивее....
    #32429698
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Daf
Участник
ТО: АлексейЕ

Большое спасибо.
...
Рейтинг: 0 / 0
03.03.2004, 15:20
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Недокументированный MSGBox. Красивее....
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32415908&tid=1676318]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 160ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 199ms
total:  447ms
созд. / загр.: 447ms
x
x
Закрыть


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