Вопрос №28. Встроенные функции MsgBox и InputBox. Привести примеры.
Самой простой способ вывести информацию пользователю— воспользоваться встроенной функцией VBA MsgBox().Полный ее синтаксис выглядит так:
MsgBox(Текст[,кнопки] [,заголовок окна] [, файл справки, метка в файле справки])
Возможностей у MsgBox() достаточно много:
• можно отображать разное кол-во кнопок (OK, Cancel, Abort, Retry, Ignore, Yes, No),
• можно показывать символы Critical, Warning, Question, Information,
• можно выбирать кнопку по умолчанию,
• можно делать окно модальным или обычным.
В зависимости от того, на какую пользователь кнопку нажал, такое значение возвращается приложению (всего 7 вариантов). Пример возврата значения от MsgBox():
Dim nVar As Integer
nVar = MsgBox ("Будем делать?", 65, "Демонстрационное окно сообщения")
Если значение nVar равно 1, то пользователь нажал OK, если 2, то Cancel.
Самый простой способ принять информацию от пользователя— воспользоваться функцией InputBox().
Dim Input
Input = InputBox("Введите Ваше имя: ")
MsgBox (" Вы ввели: " & Input )
Для InputBox() можно указать текст приглашения, заголовок окна, значение по умолчанию, местонахождение окна и файл справки. Не забывайте, что все вводимое пользователем InputBox() автоматически переводит в тип данных String— может потребоваться выполнить преобразование.
Можно привлечь внимание пользователем звуковым сигналом. Для этой цели используется оператор Beep:
Dim I
For I = 1 To 3
Beep
Next I
x=InputBox(“введи х=”)-ввести число Х
MsgBox (“число х=”)&x-бесформатный вывод
MsgBox (“число х=”)&Format(x,”0.00”) – форматный вывод