Лабораторная работа 3.1

Лабораторный практикум.

Задание 1: Создание обработчика события Change для элемента управления TextBox.

1. Перейдите в конструктор форм.

2. Дважды кликните на TextBox с именем Text1: должен появиться редактор кода с обработчиком события Click для элемента управления с именем Command1.

Private Sub Text1_Change()

End Sub

3. В обработчик события Text1_Change внесите следующий код:

MsgBox "Изменено содержимое текстовой строки элемента Text1"

4. Выполните приложение: в главном меню Run->Start, либо просто F5.

Результат: При любом изменении содержимого текстовой строки элемента Text1 должно появляться следующее окно сообщений:

Лабораторная работа 3.2. Работа со свойствами элементов управления в режиме выполнения приложения (Чтение свойств).

1. Перейдите в конструктор форм.
2. Создайте на форме элемент управления CommandButton (имя созданного элемента управления должно быть Command2).
3. Используя окно свойств (Окно свойств элементов управления (Properties)), для Command2 измените свойство Caption на «Вывести содержимое Text1».
4. Сделайте двойной кликом на Command2.

Должен открыться редактор кода с обработчиком события Click для Command2.

1. Напишите следующий код:

Private Sub Command2_Click()

MsgBox Text1.Text

End Sub

1. Выполните приложение.

Результат: При клике на Command2 (кнопка с надписью «Вывести содержимое Text1») должно появляться окно сообщений с содержимым текстового поля Text1.

Лабораторная работа 3.3. Работа со свойствами элементов управления в режиме выполнения приложения (Изменение свойств).

1. Перейдите в конструктор форм.

2. Создайте на форме элемент управления CommandButton (имя созданного элемента управления должно быть Command3).

3. Используя окно свойств (Окно свойств элементов управления (Properties)), для Command2 измените свойство Caption на «Изменить Label1».

4. Сделайте двойной кликом на Command3.

Должен открыться редактор кода с обработчиком события Click для Command3.

5. Напишите следующий код:

Private Sub Command3_Click()

Label1.Caption = Text1.Text

End Sub

6. Выполните приложение.

Результат: При клике на Command3 (кнопка с надписью «Изменить Label1») должна измениться надпись на Label1.

Готовый проект находится в файле Labs\CH03\Lab2\CH03Lab03.vbp.

Глава 4. Типы данных, константы и переменные.

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