Диалоговые окна для ввода данных

Функция InputBox() обеспечивает формирование окна для вывода строки сообщения и ожидания ввода строки символов или нажатия кнопки. Возвращает содержание текстового блока:

InputВох(<строка_сообщение> [,<заголовок_окна>][.<текст_по_умолчанию>]

[,Хпоз][,Yпоз][, <файл-подсказки>, <контекст>])

где <текст_по_умолчанию> - строка символов, выводимая в текстовом блоке (может быть пустой);

Хпоз, Yпоз - позиция левого верхнего угла окна.

Пример 19.39. Формирование окна ввода

Текст программы	Комментарий
Option Explicit Sub Msg_Inp()     Dim Response As String Dim Message As String Dim Default As String Dim Title As String Dim Help As String Dim Style As Integer Dim Ctxt As Integer Message = "Введите Фамилию, Имя и Отчество студента" Title = "Пример окна для ввода" Default = "Смирнов Игорь Александрович" Response = InputBox(Message; Title; Default; 100; 100) End Sub	Обязательность объявления всех переменных в модуле перед их использованием Объявление процедуры Объявление переменной Строка-сообщение Заголовок окна Текст по умолчанию Присвоение переменной символьного типа результата ввода   Конец процедуры

В результате выполнения программы будет выведено диалоговое окно (рис. 19.25).

Рис. 19.25. Диалоговое окно для ввода данных

Дата добавления: 2014-12-25