Высокоуровневые методы информатики и программирования. Степанов А.Г. - 77 стр.

UptoLike

Составители: 

77
режим ожидания ввода текста пользователем или нажатия кнопки, а затем возвра-
щает в программу значение типа String, содержащее текст, введенный в поле. Фор-
мат записи функции:
InputBox(prompt[,title][,default][,Xpos][,Ypos][,helpfile,context])
Здесь prompt строковое выражение, которое будет отображаться как сооб-
щение в диалоговом окне; title - сообщение, отображаемое в заголовке окна (если
оно опущено, то отображается имя приложения); default сообщение, которое будет
выводиться в строке при запуске; Xpos и Ypos задают положение окна на экране;
helpfile и contextсоответственно имя файла и номер раздела справочной системы.
Функция MsgBox выводит на экран диалоговое окно с сообщением и ожидает
нажатия кнопки пользователем. Значение нажатой кнопки возвращается как число
типа Integer. Формальная запись функции, которая не анализирует вид нажатой кноп-
ки и вызывается как процедура, выглядит так:
MsgBox prompt[,buttons][,title][, helpfile,context]
Переменная buttons позволяет задать количество и виды кнопок и информаци-
онные значки (см. табл. 8). Если необходимо задать и то, и другое, то в параметр but-
tons записывается сумма соответствующих констант.
Если генерируется несколько кнопок, то узнать, какая из них была нажата,
можно в результате анализа возвращаемого функцией MsgBox значения (см. табл.
9). В этом случае она вызывается через оператор присваивания, а ее параметры за-
ключаются в круглые скобки:
Rezult = MsgBox (prompt[,buttons][,title][, helpfile,context])
Одноименные с функцией InputBox аргументы имеют тот же самый смысл, а
значение buttons определяется как сумма констант, задающих число и тип отобра-
жаемых кнопок, тип используемого значка и основную кнопку.
На рис 9 показан внешний вид диалоговых окон для ввода информации, соз-
даваемых функцией InputBox. Если пользователь нажмет кнопку ОК или клавишу
Enter, то функция вернет строку, набранную пользователем в рабочем окне. При на-
жатии кнопки Cancel возвращается пустая строка.
Внешний вид диалоговых окон, создаваемых функцией MsgBox, показан на
рис. 10.
Пример 25. Программа, задающая с клавиатуры первую и вторую записи в
файле " Зарплата.hhh":
Open " Зарплата.hhh" For Output As #1
'Запрос данных с клавиатуры
Rezult = InputBox("Фамилия И.О. сотрудника", "Учебник")