ВУЗ:
Составители:
60
2.6. Оконный ввод-вывод данных
2.6.1. Функция InputBox
Функция InputBox предназначена для ввода информации в диалоговом окне и
передачи ее в переменную VBA.
Ожидает нажатия пользователем кнопки Ok или Cancel. Аргументы функции
перечислены ниже, а их назначение дано в табл. 2.6.
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
Таблица 2.6
Описание аргументов функции InputBox
Аргумент Описание
prompt
Обязательный аргумент. Произвольный текст, предлагающий
пользователю набрать что-либо в окне ввода. Максимально 1024
символа
title
Заголовок окна. Необязательный аргумент
default
Подсказка пользователю в строке ввода, которая будет передана
в переменную VBA, если пользователь ничего не наберет в строке
ввода Необязательный аргумент
xpos
Расстояние по горизонтали от левого края экрана до окна. Не-
обязательный аргумент
ypos
Расстояние по вертикали от верхнего края экрана до окна. Не-
обязательный аргумент
helpfile
Имя файла, который можно вызвать по кнопке Help. Необяза-
тельный аргумент
context
Число, которое передается в helpfile, для выдачи контекстной
справки. Необязательный аргумент
Если данные в строке ввода отсутствуют, или нажата кнопка Cancel, то возвра-
щается пустая строка. Примеры использования функции InputBox приведены ниже
(рис. 2.10).
Sub Pro15()
Dim Mess, Tit, Def, MyVal
Mess = "Введи количество компонентов нефти" ' задали строку приглашения
Tit = "Нефтяные расчеты" ' задали титул окна
Def = "10" ' установили значение по умолчанию
MyV = InputBox(Mess, Tit, Def)
MsgBox (MyV)
' То же окно на другой
позиции 100, 400.
MyV = InputBox(Mess, Tit, Def, 100, 400)
MsgBox (MyV)
End Sub
Страницы
- « первая
- ‹ предыдущая
- …
- 59
- 60
- 61
- 62
- 63
- …
- следующая ›
- последняя »
