Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Стили MsgBox / 5 сообщений из 5, страница 1 из 1
07.07.2003, 22:22
    #32201391
mazzi
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стили MsgBox
Хочу в заголовке иметь свою запись, но почему-то такой вариант не работает.
MsgBox (" my text ", vbInformation, " my title ")
Пишет, что ожидается =
Пробывал ставить =vbOK. Но все равно не работает, пишет что несоответствие типов левой и правой части, вроде так. Кроме того я не понимаю зачем это нужно ?

Объясните плиз. Спасибо Вам.
...
Рейтинг: 0 / 0
07.07.2003, 22:47
    #32201401
VIG
VIG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стили MsgBox
Надо так:
Код: plaintext
MsgBox  " my text " , vbInformation,  " my title"  


Скобки используются ,если ожидается ответ например

Код: plaintext
1.
2.
3.
4.
If MsgBox(strMsg, vbOKCancel,  "Error!" ) = vbOK Then 
 do_something 
Else 
 do_another_action              
End if
...
Рейтинг: 0 / 0
08.07.2003, 11:32
    #32201742
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стили MsgBox
Можно обращаться к Sub'ам и со скобками, но тогда надо писать Call.

Call S(A, B)
S A, B
X = F(A, B)
...
Рейтинг: 0 / 0
08.07.2003, 12:32
    #32201849
G&P
G&P
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стили MsgBox
Я обычно пишу так:
Код: plaintext
1.
2.
3.
4.
Dim strmsg as vbMsgBoxResult
strmsg=MsgBox(...........................)
if strmsg = vbOk then
............................

и т.д.
...
Рейтинг: 0 / 0
08.07.2003, 12:35
    #32201854
sasha_1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стили MsgBox
или еще проще:

if MsgBox(...)=vbOK then ...
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Стили MsgBox / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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