Ввод и вывод значений переменных
На практике в переменных часто хранят введенную пользователем информацию. Для получения такой информации можно использовать объект типа поля списка или текстового поля, но иногда приходится работать с пользователем напрямую и сохранять его ввод в переменных, а не в свойствах. Одним из способов получения ввода является отображение на экране диалогового окна с помощью функции InputBox и последующее использование переменной для хранения текста, введенного пользователем. Попробуйте использовать этот подход в следующем примере.
Ввод дачных с помощью функции InputBox
Для ввода значения переменной можно воспользоваться функцией с именем InputBox. Она выводит на экран диалоговое окно, содержащее сообщение и поле ввода, возвращает значение типа String, содержащее текст, введенный в поле ввода. Синтаксис обращения к функции:
strRetVal = InputBox (strMessage [,strTitle] [,strDefaultTitle] [,xPos] [,yPos]
[,strHelpFile] [,HelpContextID])
где:
• strRetVal - строковая переменная, в которой хранится значение, возвращаемое функцией InputBox ()
• InputBox - имя функции;
• strMessage - строковое выражение, которое будет отображаться в области сообщения окна ввода;
• strTitle - строковая константа или переменная, значение которой будет отображаться в заголовке окна ввода;
• strDefaultTitle - строковая константа или переменная, значение которой будет отображаться в поле ввода;
• sPos, yPos - положение окна ввода соответственно по горизонтали и вертикали (в твипах);
• strHelpFile, HelpContext ID - те же самые параметры, что и у функции
MsgBox ().
Проиллюстрируем использование окна ввода, ВЫПОЛНИТЕ следующие действия:
1. Создайте новый проект.
2. Поместите на форму кнопку <Button1> и дайте ей название «Начало».
3. Между строками Private Sub Button1 Click () и End Sub наберите следующие программные утверждения:
strRetVal = InputBox ("Введите информацию","Окно ввода")
If strRetVal < > "" Then
Button1.Text = strRetVal
Else
Button1.Text = "Строка ввода пуста"
End If
Первая строка отображает окно ввода и присваивает возвращаемое значение переменной strRetVal. Вторая строка проверяет содержимое поля ввода. Если в поле набраны какие-либо данные, т.е. строка ввода непустая, то утверждение третьей строки после нажатия кнопки <ОК> меняет название кнопки < Button1> на содержимое введенных данных. В противном случае (строка 4) в пятой строке кнопке < Button1> присваивается значение Строка ввода пуста.
Вывод данных с помощью функции MsgBox
Окно сообщения представляет собой простую экранную форму, которая отображает некоторое сообщение и имеет хотя бы одну кнопку команды. Окно сообщения является модальным по отношению к приложению. Это означает, что приложение не сможет продолжить работу, пока окно сообщения не будет закрыто. Иногда окно сообщения отображает пиктограмму или содержит не сколько кнопок, с помощью которых пользователь может сделать выбор. В этом случае окно сообщения позволяет получить информацию о принимаемом пользователем решении.
Отобразить окно сообщения можно с помощью оператора MsgBox или функции MsgBox (разница между ними заключается в том, что функция отображает окно сообщения и возвращает некоторое значение, а оператор только отображает окно сообщения.
Синтаксис оператора MsgBox следующий (в квадратных скобках необязательные параметры):
MsgBox («сообщение»,[ЧисКод1+ЧисКод2],[«Заголовок»])
Аргумент «сообщение» выводится в окно сообщений. ЧиcКод1+ЧисКод2 определяет внешний вид панели. Строка «заголовок» печатается в строке заголовка панели. Последние два аргумента не являются обязательными. Например, для функции MsgBox(«сообщение», 48 + 3, "ОКНО") будет выведено следующее окно сообщений:
Внешний вид окна сообщений можно менять, используя различные значения ЧиcКод1 и ЧисКод2. Значение ЧиcКод1 определяет вид пиктограммы, которая помещается в окно сообщений, а значение ЧисКод2 определяет набор кнопок, размещаемых в окне.
Таблица 1
Таблица 2
В качестве примера создадим окно информационного сообщения с заголовком «Окно» и текстом «Нажмите кнопку» с пиктограммой информационного сообщения и с двумя кнопками <Да> и <Нет>. При нажатии кнопки <Да> надпись на командной кнопке < Button1> формы требуется заменить на значение Да, а при нажатии кнопки <Нет> на значение Нет. Выполните следующие действия:
1. Создайте новый проект
2. Высадите на форму командную кнопку <Button1> и дайте ей имя «Начало»
3. В окне программного кода на «Button1» запишите программный код между строками
Private Sub Button1 Click () и End Sub:
RetInt = MsgBox ("Нажмите кнопку", 64+4,"ОКНО")
If RetInt = 6 Then
Button1.Text = "Да"
ElseIf RetInt = 7 Then
Button1.Text = "Нет"
End If
В первой строке функция MsgBox выводит на экран диалоговое окно с текстом «Нажмите кнопку», двумя кнопками <Yes> и <No> и заголовком окна «Окно». Вторая строка проверяет возвращаемое значение переменной Retlnt на его равенство числу 6. Если условие выполняется, то это означает, что нажата кнопка <Yes>, и тогда в третьей строке свойству Text (Надпись) командной кнопки <Button1> присваивается значение Да. Если возвращаемое значение не равно 6, то четвертая строка проверяет его на значение, равное 7, поскольку при нажатии кнопки <No>, возвращаемое значение Retlnt равно 7. Если Retlnt действительно равно 7, то в пятой строке надписи на командной кнопке присваивается значение Нет. Шестая строка закрывает условный оператор.