Использование текстовых полей для ввода и вывода
Элемент управления TextBox (текстовое поле), размещенный на форме, служит для ввода пользователем информации во время работы приложения или отображения информации, задаваемой свойством Text программно или при разработке приложения в окне свойств. Объект TextBox имеет большой набор свойств:
Text (Текст) для ввода отображаемой информации в поле ;
BorderStyle (Стиль рамки) для выделения текстового поля рамкой (значение Fixed Single) или без нее (None);
BackColor (Цвет фона);
ForeColor (Цвет текста);
Alignment (Выравнивание) для выравнивания по центру, по левому или правому краю;
Font (Шрифт) для задания наименования, размера и начертания шрифта, отображаемого в текстовом поле;
MultiLine для автоматического переноса текста по словам на несколько строк (значение True, по умолчанию – False);
ScrollBar для отображения горизонтальной, вертикальной полос прокрутки или двух полос сразу. Свойство MultiLine должно иметь значение True. Полоса прокрутки может отсутствовать.
Для размещения на экранной форме текстовой информации, например комментарий к текстовым полям, используется элемент управления Label (Метка). Этот элемент имеет свойство Caption (Надпись) для ввода текста информации, а также свойства, которые имеет и текстовое поле (шрифт, стиль рамки, выравнивание и другие).
Рассмотрим пример приложения, содержащего экранную форму с двумя текстовыми полями и соответственно двумя метками к ним, а также командную кнопку для привязки к ней события для выполнения программного кода.
Программный код имеет вид:
Private Sub Command1_Click()
'Объявление типа переменной
Dim a As Single
a = Val(Text1.Text) 'Ввод значения переменной в текстовое поле
a = a ^ 2
Text2.Text = Str(a) 'Вывод значения переменной в текстовое поле
End Sub
Все, что вводится в текстовое поле, воспринимается как строка символов. Функция Val в примере использована для преобразования строки символов в число
После запуска программы на выполнение, затем ввода значения переменной (а) в первое текстовое поле и выполнения события – щелчка на командной кнопке окно приложения будет иметь вид:
Задание. С помощью окна ввода InputBox необходимо ввести свою фамилию, имя и отчество. Вывести введенные фамилию, имя и отчество на экранную форму в соответствующие текстовые поля.
В соответствии с заданием экранная форма должна содержать три текстовых поля, три поясняющие их метки.
Программный код имеет вид:
Private Sub Command1_Click()
‘ Объявление переменных
Dim F As String, I As String, О as String
‘ Ввод фамилии, имени и отчества с помощью окна ввода
F = InputBox("Ваша фамилия","Ввод фамилии")
I = InputBox("Ваше имя","Ввод имени")
O = InputBox("Ваше отчество","Ввод отчества")
‘ Вывод фамилии, имени и отчества в текстовые поля на экранной форме Text1.Text = F
Text2.Text = I
Text3.Text = О
End Sub
Вывод на экранную форму с помощью оператора Print
Для вывода данных прямо на экранную форму используется оператор Print.
Синтаксис оператора имеет вид:
Print [список переменных][;]
или
Print [список переменных][,]
Вместо ключевого слова Print можно использовать знак вопроса (?).
Разделителем переменных может быть пробел или точка с запятой (;), в этом случае данные отделяются друг от друга пробелом, запятая (,) - данные выводятся зонами, где зона - 14 позиций экрана.
Если список переменных заканчивается точкой с запятой или запятой, то следующий оператор Print осуществляет вывод данных в этой же строке через пробел или зону соответственно.
Примеры разных форм записи оператора:
‘ Вывод значения переменной z
Print z
‘ Вывод значения переменной z с поясняющим текстом
Print "z =" ; z
‘ Вывод двух переменных z и y, разделитель точка с запятой
Print "z="; z; "y="; у
‘ Вывод двух переменных z и у, разделитель запятая
Print "z="; z , "y="; у