1.7.5 Организация ввода данных
Ввод данных можно осуществить с помощью функции InputBox() или текстового поля.
Функция InputBox()
С помощью этой функции ввод данных производится в стандартное диалоговое окно.
Синтаксис функции выглядит так:
a = InputBox(сообщение [,заголовок] [,умолчание] [,x pos, y pos])
где а – имя переменной, которой требуется присвоить значение, введенное в стандартное диалоговое окно;
сообщение – текст, отображаемый в диалоговом окне (текст должен быть заключен в двойные кавычки и не превышать 1024 символов);
заголовок – текст, который размещается в заголовке окна;
умолчание – значение величины, которая будет по умолчанию находиться в текстовом поле диалогового окна;
x pos, y pos – координаты верхнего левого угла окна; если их не указывать, окно располагается в центре экрана.
Вместо необязательных параметров (указанных в квадратных скобках) ставится запятая при наличии следующих за ними параметров.
Рассмотрим фрагмент кода ввода значения площади S.
Dim S As Double
S = InputBox("Введите значение площади")
В текстовое поле диалогового окна введено значение 67. Когда пользователь нажимает кнопку ОК, содержимое поля присваивается переменной S. Если пользователь нажал кнопку CANCEL, переменной S значение не присваивается.
Если видоизменить вызов функции следующим образом:
S = InputBox("Введите значение площади", "Задание № 1")
то получим окно вида:
Ввод данных с помощью текстового поля
Для организации ввода значения переменной с помощью текстового поля необходимо выполнить следующие действия:
на форме разместить текстовое поле для ввода значения переменной (элемент управления "Текстовое поле", по умолчанию свойство Name этого элемента имеет значение Text1);
в программе записать оператор
Имя переменной = Val(Text1.Text)
или
Имя переменной = Text1
1.7.6 Организация вывода данных
Вывод данных можно выполнить различными способами, например:
– c помощью оператора MsgBox;
– с помощью функции MsgBox();
– с помощью метода Print;
– с помощью текстового поля.
Оператор MsgBox
Оператор MsgBox выводит данные в стандартное диалоговое окно, которое может иметь текст сообщения, заголовок и атрибут.
Синтаксис оператора вывода сообщений в стандартное диалоговое окно следующий:
MsgBox сообщение [,атрибут] [,заголовок]
где сообщение – текст, отображаемый в диалоговом окне (текст должен быть заключен в двойные кавычки и не превышать 1024 символов);
заголовок – текст, который размещается в заголовке окна;
атрибут – значения этого параметра определяют, какие кнопки должны отобразиться в окне; задается символьной или числовой константой.
Символьная константа |
Числовая константа |
Отображаемые кнопки |
VbOKOnly |
0 |
ОК |
VbOKCancel |
1 |
ОК и Отмена |
VbAbortRetryIgnore |
2 |
Отмена, Повтор и Игнорировать |
VbYesNoCancel |
3 |
Да, Нет и Отмена |
VbYesNo |
4 |
Да и Нет |
VbRetryCancel |
5 |
Повтор и Отмена |
VbQuestion |
32 |
Вопросительный знак |
VbDefaultButton1 |
0 |
По умолчанию активна первая кнопка |
VbDefaultButton2 |
256 |
По умолчанию активна вторая кнопка |
Msgbox "пример", VbOKCancel
Значения констант можно складывать. Например, если в окне сообщения должны присутствовать кнопки Да и Нет, и при этом кнопка Нет назначена по умолчанию, то можно использовать любую переменную, которой присваивается одно из значений:
кнопки = VbYesNo+VbDefaultButton2
кнопки = 4+ 256
Затем эта переменная используется при вызове функции или в операторе Msgbox.
Msgbox "пример", кнопки
Msgbox "пример", 4+ 256
Msgbox "пример", VbYesNo+VbDefaultButton2
В своей простейшей форме оператор MsgBox выводит стандартное окно сообщений, которое закрывается, когда пользователь щелкает по кнопке ОК.
MsgBox "s= " & s MsgBox "s= " & s, , "Ответ"
Примечание. Вместо необязательных параметров (указанных в квадратных скобках) ставится запятая при наличии следующих за ними параметров.
Функция MsgBox()
Функция MsgBox() выводит данные в стандартное диалоговое окно, которое может содержать текст сообщения, заголовок и набор кнопок.
В отличие от оператора MsgBox функция возвращает значение, позволяющее определить, какую кнопку нажал пользователь.
-
Символьная
константа
Числовая константа
Нажатая
кнопка
VbOk
1
OK
VbCancel
2
Отмена
VbRetry
4
Повтор
VbIgnore
5
Игнорировать
VbYes
6
Да
VbNo
7
Нет
Синтаксис функции вывода сообщений в стандартное диалоговое окно:
имя переменной = MsgBox (сообщение,атрибут,заголовок)
Например, перед началом печати можно запросить ее подтверждение. Тогда код приложения примера, рассмотренного в пункте 1.6.1, может выглядеть так:
Option Explicit
Private Sub Command1_Click()
Dim b As Single, s As Single, h As Single
b=InputBox("Введите значение b =")
s=InputBox("Введите значение s =","Cтруктура СЛЕДОВАНИЕ")
h=(- b+Sqr(b*b+8*s))/2
' Значение атрибута – 3 выводит кнопки Да, Нет и Отмена
вывод=MsgBox("Ответ печатать?",3,"Задание № 1")
If вывод = vbYes Then MsgBox "Значение высоты равно " & h
End Sub
Функция Format
Эта функция позволяет изменить формат представления данных при выводе на печать или визуальное устройство. Синтаксис функции: