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

Date: 2015-10-07; view: 382.

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

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

Для властивості 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. Запустить створений проект і перевірте як він працює. Закрийте вікно проекту.

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