Лекция: Використання поля зі списком

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