Свойства элементов управления в режиме выполнения приложения.2

Но, как мы уже знаем, элементы управления обладают не только событиями, но и свойствами (Properties). Раньше мы умели работать со свойствами только в режиме дизайна проекта (Design-time mode), однако с помощью событий, мы можем «оживить» наши приложения и заставить меняться свойства (и не только) по какому-либо событию!

Доступ к свойствам во время выполнения приложения (Run-time mode) осуществляется при помощи оператора «.» (точка) следующим образом: в редакторе кода после имени элемента управления ставится точка, если правильно введено имя элемента управления, то появится выпадающий список, из которого можно выбрать необходимое свойство. На следующем примере показан выпадающий список для элемента управления класса CommandButton с именем Command1:

Рисунок 3.2. Выпадающий список свойств и методов элемента управления

Изменить свойство элемента управления можно при помощи оператора «=». Например, изменить содержимое надпись на элементе управления класса CommandButton с именем Command1 можно, написав следующий код:

Command1.Caption = “OK”

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

Text1.Text = “Здравствуй мир”

Лабораторный практикум. Лабораторная работа 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.

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

Private Sub Command2_Click()

MsgBox Text1.Text

End Sub

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

Результат: При клике на 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.