Лабораторная работа № 12

Тема «МЕНЯЕМ СОДЕРЖИМОЕ ПОЛЕЙ МЕСТАМИ»

Цель работы: Познакомиться с элементами управления Visual Basic 6.0 CommandButton, TextBox, научиться пользоваться элементами управления и их свойствами

Задачи: Создать по пунктам лабораторной работы 2 текстовых поля и 2 кнопки, с помощью которых меняются надписи и фоновый цвет поля.

Ход работы:

1. Готовимся к работе

Для начала откройте VB. Затем в открывшейся форме создаем свой проект, который будет состоять из двух текстовых полей и двух кнопок ПУСК1 и ПУСК2.

На левом текстовом поле (объект с именем Text1) – строка из букв черного цвета на белом фоне; на правом текстовом поле (объекте с именем Text2) – строка из букв белого цвета на черном фоне. Щелчок по кнопке ПУСК1 должен – перенести левую строку направо, а правую – налево. Цвет букв и цвет фона каждого поля меняться не должны. Чтобы при обмене содержимым текстовых полей менялись бы и их цвета (как букв, так и фона), вы должны кликнуть ни на кнопку ПУСК1, а на – ПУСК2.

Настроим свойства полей – цвет символов (ForeColor) и цвет фона (BackColor).

Интерфейс вроде готов.

2. Приступаем к программированию

Составим алгоритм и напишем программу для первого из двух событий – щелчка кнопки ПУСК1.

Определим переменную типа String, пусть это будет Строка. После щелчка командной кнопки этой переменной будет присвоено значение Text1, а Text1 присвоено Text2, а Text2 помещается в переменную Строка. В итоге должен получиться следующий код:

Private Sub ПУСК1_Click()

Dim Строка As String

Строка = Text1.Text

Text1.Text = Text2.Text

Text2.Text = Строка

End Sub

Теперь решим вторую задачу. Составим алгоритм и напишем программу для второго из двух событий – щелчка кнопки ПУСК2. Определим три переменные: одну типа String и две типа Long. Назовем их Строка, ЦветФона и ЦветБукв.

После клика по командной кнопке этим переменным будут присвоены значения трех свойств одного текстового поля с именем Text1: Text, BackColor, ForeColor. После чего будет происходить обмен значений этих свойств двух текстовых полей с помощью указанных выше переменных подобно тому, как это происходило при решении первой задачи (для кнопки ПУСК1).

В итоге должно получиться следующее:

Private Sub ПУСК2_Click()

Dim Строка As String, ЦветФона As Long, ЦветБукв As Long

Строка = Text1.Text

ЦветФона = Text1.BackColor

ЦветБукв = Text1.ForeColor

Text1.Text = Text2.Text

Text1.BackColor = Text2.BackColor

Text1.ForeColor = Text2.ForeColor

Text2.Text = Строка

Text2.BackColor = ЦветФона

Text2.ForeColor = ЦветБукв

End Sub

Все программа готова. Осталось только сохранить и откомпилировать программу.

Для самостоятельной работы

1. Напишите программу «Обмен значениями» подобное тому, которое было рассмотрено в данной лабораторной работе, но содержащих не два, а четыре текстовых поля (Левое верхнее, левое нижнее, правое верхнее, правое нижнее).

2. Как и в лабораторной работе щелчок кнопки ПУСК1 должен сделать надписи в текстовых полях «правильными» - соответствующие по смыслу тем местам, на которых они находятся. При этом цвет полей и букв в этих полях меняться не должны.

3. Щелчок кнопки ПУСК2 должен помимо смены надписей изменить и указанные цвета.