TxtAll.SetFocus
TxtExpluat.Visible = False
TxtRezerv.Visible = False
TxtRemont.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
End Sub
Метод SetFocus робить поле TxtAll готовим до приймання даних і розміщує в ньому курсор. Процедура обробки події робить невидимими інші текстові поля і мітки, прибираючи з екрана результати попередніх обчислень.
7. З подією Click командної кнопки Cmd_ Розрахунок зв'яжіть код:
Private Sub Cmd_Расчет_Click()
TxtExpluat.Text = 10 * TxtAll.Text \ 100
TxtRezerv.Text = 60 * TxtAll.Text \ 100
TxtRemont.Text = TxtAll.Text - TxtExpluat.Text - TxtRezerv.Text
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
TxtExpluat.Visible = True
TxtRezerv.Visible = True
TxtRemont.Visible = True
End Sub
8.Зподією Click командної кнопки Cmd_ Вихід з в’яжіть код:
Private Sub Cmd_Выход_Click()
End
End Sub
9. Запустіть додаток на виконання і виконайте обчислення для різних вихідних даних.
10. Зберіжіть проект та форму в папці ЛАБ6 з іменами Лр6_Зад1_P _Прізвище і Лр6_Зад1_F _ Прізвище відповідно.
ЗАВДАННЯ НА САМОСТІЙНУ РОБОТУ(В,ВС,ЛС)
ЗАВДАННЯ 6.2. Створіть проект для обчислення значення функції згідно з варіантом індивідуального завдання.