End Sub. 7 Дважды щелкните по кнопке Cmdpr2 и в окне ее программного кода запишем:

End Sub

TxtText1.SetFocus

End Sub

End

End Sub

7 Дважды щелкните по кнопке Cmdpr2 и в окне ее программного кода запишем:

Private Sub Cmdpr2_Click()

8 Запустите приложение. Нажмите клавишу Enter и следуя указаниям Label1, которое появляется на форме после нажатия клавиши Enter. (рис 1) Нажмите клавишу Esc и убедитесь в том, что приложение будет закрыто.

9 Запустите приложение. Выполните процедуру закрытия приложения, работая только с клавиатурой и используя комбинации клавиш Alt+E и Alt+S.

При разработке приложений старайтесь создавать клавиши ускоренного доступа, поскольку не все пользователи и не всегда любят работать с мышью.

Свойства кнопки Enable и Visible регулируют доступ к кнопке. Если какое-либо из этих свойств задать значение False кнопка станет недоступной. Свойства Enable = False для конкретной кнопки значит ее блокировка, что может пригодиться в тех случаях, когда до нажатия этой кнопки пользователь должен выполнить определенные действия (скажем заполнить текстовое поле) и лишь затем нажать кнопку и перейти к следующей стадии процесса. Свойство Visible =False означает, что кнопка с таким значением свойства просто исчезает.

Упражнение 2

1 Задайте режим конструирования приложению “Свойства кнопок”.

2 Добавьте на форму кнопку со следующими значениями свойств:

Name = Cmdpr3

Caption = Старт

3 Добавьте на форму метку с именем Label2 и свойством Caption = “”.

4 Щелкните дважды на объекте текстовое поле на панели элементов для установке его на форме. Задайте следующие свойства:

Name = txtText1

Text = ””

5 Дважды щелкните по кнопке Cmdpr3 и в окне ее программного кода запишите следующий код:

Private Sub Cmdpr3_Click()

Label2.Caption = "Введите число 1 - 3"

6 Щелкните дважды в окне TxtText1 и в окне его программного кода запишем:

Private Sub txtText1_Change()

Dim y As Variant

y = txtText1.Text

If y = 3 Then Cmdpr2.Visible = False

If y = 1 Then Cmdpr1.Enabled = False

7 Запустите приложение.

8 В текстовом окне сразу после появления на экране работающего приложения появится мерцающий курсор. Появление в текстовом окне курсора обеспечивает код TxtText1.Focus, то есть, текстовое поле находится в фокусе.

Фокус – это фундаментальная концепция разработки пользовательского интерфейса, согласующегося со стандартом операционной системы Windows. Фокусом - называется способность элемента воспринимать ввод с клавиатуры. Когда элемент находится в фокусе он воспринимает ввод.

9 В текстовое поле введите число:

· Если число равно 1, то кнопка Enter будет заблокирована;

· Если число равно 2, приложение будет работать в первозданном варианте;

· Если число равно 3, кнопка Esc исчезает с поля формы. Для завершения работы приложения воспользуйтесь системной кнопкой закрытия формы (правая кнопка в заголовке формы).

Пример наглядно демонстрирует основные принципы работы с кнопками. Вы можете включить в процедуру события Click (наиболее часто используемое событие кнопок) другие команды, чтобы кнопка выполняла дополнительные задачи. Например, если кнопка (в нашем приложении кнопка Esc) должна закрывать приложение, процедура должна выглядеть как:

Private Sub Cmdpr2_Click()

Дата добавления: 2015-04-29