Створення меню

Практична робота №3 Робота з меню

Використання поля зі списком

2. На панелі інструментів ToolBox вибираємо елемент ComboBox, а потім розташовуємо його на формі.

3. Для списку Combo1, який з’явився на формі у вікні властивостей Properties змінюємо наступні властивості:

(Name)	ComboFun
List	(List)
Text	Функція
Height
Left
Top
Width

Для властивості List введіть список функцій (Синус, Косинус, Тангенс, Модуль)

4. Створений проект повинен мати наступний вигляд:

Рис. 8

5. Створимо процедуру обробки події при натисканні на кнопку Обчислити. При написанні процедури будемо використовувати структуру з умовою If…Then…Else If…Then…Else…End If. При цьому текст процедури буде наступний:

Private Sub CmdCalc_Click()
' Оголошення змінних в тілі процедури
Dim a As Double
Dim f As String
' Присвоєння змінній значеня
a = TextV1.Text
If ComboFun.Text = "Синус" Then ' Якщо обрано "Синус"
f = Sin(a)
ElseIf ComboFun.Text = "Косинус" Then 'Якщо обрано "Косинус"
f = Cos(a)
ElseIf ComboFun.Text = "Тангенс" Then 'Якщо обрано "Тангенс"
f = Tan(a)
ElseIf ComboFun.Text = "Модуль" Then 'Якщо обрано "Модуль"
f = Abs(a)
Else: f = Empty
End If
LabelResText.Caption = f
End Sub

6. Запустить створений проект і перевірте як він працює. Закрийте вікно проекту.

Створимо додаток, вікно якого містить рядок меню з пунктами Колір і Розмір. Пункт меню Колір містить команду Вибір кольору (що викликає каскадне меню з командами: Червоний, Синій, Білий) і команду Вихід. Пункт меню Розмір містить команди Нормальний, Максимальний. Кожна команда повинна мати “гарячі клавіші” для виклику її за допомогою клавіатури. При виборі певного кольору необхідно щоб відбувалася зміна кольору робочої області вікна програми, а при виборі розміру вікно набувало або максимального розміру, або нормального. В результаті потрібно отримати програму, вікно якої зображено на рис. 9.

Рис. 9

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