Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Недокументированный MSGBox. Красивее.... / 8 сообщений из 8, страница 1 из 1
19.02.2004, 17:06
    #32415871
Rafa
Rafa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Недокументированный MSGBox. Красивее....
Единственное польза от такого нестандартного способа создания -
это первая секция (строка) выделена жирным шрифтом, что бывает красиво и нестандартно. ;)

Dim lngReturnValue As Long

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

MsgBox lngReturnValue

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


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

Дополнение:


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

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

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

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

В 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, 15:02
    #32429650
АлексейЕ
АлексейЕ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Недокументированный MSGBox. Красивее....
Код: 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:20
    #32429698
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Недокументированный MSGBox. Красивее....
ТО: АлексейЕ

Большое спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Недокументированный MSGBox. Красивее.... / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 374ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1676318]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 55ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 40ms
get tp. blocked users:
 2ms
others: 231ms
total:  374ms
x
x
Закрыть


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