Вопрос 36.

Кнопка

Важную роль в форме имеет объект, называемый элементом управления command Button (Кнопка управления).. Нажатие кнопки, размещенной в форме, позволяет выполнить процедуру обработки события click.

Для размещения в форме элемента управления Command Button используется кнопка CommandButton на панели элементов управления. Надпись, размещаемая на кнопке, задается свойством Caption и может содержать не более 255 символов. Если длина надписи больше ширины кнопки, автоматически осуществляется перенос надписи на следующую строку. В случае, если размер кнопки не позволяет поместить всю надпись, не поместившаяся часть надписи отбрасывается.

Кнопки, размещаемые в форме, используются для выполнения определенной процедуры, связанной с обработкой события click. Это может быть, например, печать данных или проведение определенных вычислений. После того как кнопка размещена в форме и задано ее название, необходимо определить действия, выполняемые при нажатии на эту кнопку. Для этого дважды щелкните на кнопке и в открывшемся окне редактора кода задайте необходимую процедуру.

Рассмотрим небольшой пример определения процедуры, связанной с обработкой события click. Разместим в форме текстовое поле и две кнопки, нажатие которых будет изменять отображаемую в текстовом поле информацию:

1. Откройте новый проект для создания приложения.

2. Используя кнопку ТехВох на панели элементов управления, создайте в форме текстовое поле.

3. Разместите в форме две кнопки управления, используя для этого кнопку CommandButton на панели элементов управления.

4. Используя свойство Caption кнопки, задайте ее название.

5. Для изменения шрифта и начертания надписи, воспользуйтесь диалоговым окном Выбор шрифта свойства Font.

6. Чтобы задать процедуру обработки события click, дважды щелкните на кнопке и в открывшемся окне редактора кода создайте процедуру следующего вида:

Private Sub Command1 Click()

Text1.Text = "Текст, задаваемый нажатием кнопки 1"

End Sub

7. Выполняя пункты с 3 по 6, создайте и разместите в форме еще одну кнопку управления. При определении процедуры измените текст, отображаемый в текстовом поле при нажатии второй кнопки.

Запустите форму на выполнение. Нажимая поочередно размещенные в ней кнопки управления, вы можете наблюдать изменение отображаемой в текстовом поле информации (рис. 3.21).

Рис. 3.21. Информация в текстовом поле меняется при нажатии кнопок

Вопрос 37.

Текстовое поле

Для отображения информации и ввода данных в форме предназначен объект типа поле, для создания которого используется кнопка TextBox (Текстовое поле) на панели элементов управления.

Информация, выводимая в текстовом поле, определяется свойством Text и может задаваться следующим способом:

• в диалоговом окне Properties;

• в процессе выполнения программного кода;

• при вводе данных в поле пользователем. В этом случае свойство Locked не должно иметь значение True, так как данные, отображаемые в поле, можно только просматривать, но нельзя редактировать.

Текстовые поля — это наиболее часто встречающийся тип элементов управления, т. к. их можно использовать не только для просмотра информации, как с помощью рассмотренных ранее элементов управления типа Label, но и для ввода информации пользователями приложения.

Разместим в форме текстовое поле и посмотрим, как, вводя в него информацию, можно изменять значение расположенной в форме надписи.

1. Откройте окно для создания нового приложения.

2. Для размещения в форме текстового поля нажмите кнопку TextBox (Текстовое поле) на панели элементов управления. Затем установите курсор в форме и нарисуйте рамку требуемого размера.

3. Откройте окно свойств для созданного элемента управления.

4. Информация, отображаемая в текстовом поле, задается свойством Text. Чтобы при запуске формы на выполнение поле было пустым, удалите из правого столбца данного свойства находящееся там по умолчанию значение Text1.

5. Разместите в форме надпись к текстовому полю. Для этого нажмите кнопку Label на панели элементов управления, установите курсор в верхнюю часть формы и нарисуйте рамку требуемого размера. Затем в окне Properties выделите свойство caption (Надпись) и введите в правом столбце текст надписи, например. Текстовые поля позволяют пользователю вводить информацию.

6. Чтобы вводимая в текстовое поле информация отображалась в надписи, расположенной над полем, необходимо создать процедуру. Щелкните мышью, установив курсор на текстовом поле. В открывшемся окне редактора кода из списка Object выбрано значение Text1, указывающее наименование элемента управления TextBox, а из правого списка Procedure значение Change, позволяющее задать процедуру обработки события, возникающего при изменении значения. Создайте процедуру следующего вида (рис 3.19):

Private Sub Textl_Change ()

Label 1.Caption = Textl.Text

End Sub

Рис. 3.19. Процедура, позволяющая отображать в метке вводимую пользователем информацию

Рис. 3.20. Информация, вводимая пользователем в текстовое поле, отображается в метке.

7. Закройте окно редактора кода.

8. Запустите программу на выполнение. Появляется форма, содержащая надпись и текстовое поле. Введите произвольную фразу в текстовое поле. Обратите внимание, что по мере ввода информации надпись, расположенная над полем, также отображает вводимый вами текст (рис. 3.20).