3.4 Елементи управління
Рис. 7. Панель елементів управління
На панелі знаходяться кнопки для таких елементів управління:
Label – напис;
TextBox – текстове поле;
ComboBox – поле зі списком;
ListBox – список;
CheckBox – прапорець;
OptionButton – перемикач;
ToggleButton – вимикач;
Frame – рамка;
CommandButton – командна кнопка;
TabStrip – набір вкладок;
MultiPage – набір сторінок;
ScrollBar – смуга прокручування;
SpinButton – лічильник;
Image – рисунок;
RefEdit – вікно редагування, яке може згортатися.
У вікні властивостей зображуються властивості для виділеного об’єкта. Їх можна змінювати на етапі конструювання або програмно. Кожен об’єкт має свій набір властивостей, а також подій, відгук на які можна запрограмувати.
Якщо вікно властивостей відсутнє на екрані, його можна вивести, натиснувши цю кнопку.
3.5 Деякі властивості та події елементів управління
Найчастіше використовуються такі властивостей та події елементів управління:
Caption – заголовок елемента;
Click – клик лівою кнопкою мишки на елементі;
Enabled – якщо дорівнює True, то елемент доступний,
якщо дорівнює False, то елемент недоступний.
Font – задає властивості шрифту;
SetFocus – встановлює фокус на елемент управління;
Value – значення, яке набуває елемент;
ControlSource – джерело даних для елемента управління TextBox, а для елементів управління ComboBox та ListBox – це адреса клітинки, до якої записується обраний елемент;
RowSource – це діапазон даних для елементів управління ComboBox та ListBox.
Для того, щоб написати код обробки події для елемента, найпростіше кликнути двічі лівою кнопкою мишки на цьому елементі. Відкриється вікно редактора Visual Basic з кодами програм, як зображено на рисунку 8.
Рис. 8. Фрагмент вікна з кодом.
Це вікно має два списки. Список ліворуч містить перелік всіх об’єктів, розташованих на формі. В правому списку знаходиться список всіх подій об’єкта, відгук на які можна запрограмувати.
Ім’я процедури за замовченням складається з імені об’єкта та події, відокремлених одне від одного рискою символу підкреслення.
Д ля виконання конкретних дій найчастіше використовуються командні кнопки CommandButton та подія Click (щиглик лівою кнопкою мишки по кнопці). Командні кнопки можна розмістити на формі або на Листі Excel. Для розміщення її на Листі Excel треба спочатку перейти в режим Конструктора за допомогою кнопки
Щоб вийти з режиму Конструктора, треба ще раз натиснути ту ж саму кнопку.
П отім необхідно вивести на екран панель елементів управління. Це робиться за допомогою кнопки
Коли на екрані з'являється панель елементів, то порівняно з рисунком 7, на ній розміщені додаткові кнопки для виведення вікна властивостей та вікна коду програми. Треба вибрати на панелі елемент управління CommandButton (командна кнопка) та розмістити її на Листі Excel. Щоб ввести код для кнопки, можна двічі кликнути на ній лівою кнопкою мишки або скористатися кнопкою на панелі елементів для переходу у вікно коду.
3.6Умовний оператор і оператор вибору.
Умовний оператор організує виконання однієї з двох груп операторів у залежності від виконання умови. Синтаксис:
If умова Then
[Операторы1] - виконуються, якщо умова виконана
Else
[Операторы2] - виконуються, якщо умова не виконана
End If
Приклад 3.6.1. Використання умовного оператора.
Sub Розгалуження()
Dim x as Integer
x=InputBox(“Введіть число”)
If x>=0 Then
MsgBox “Ви ввели позитивне число або нуль”
Else
MsgBox “Ви ввели негативне число”
End If
End Sub
Оператор вибору організує виконання однієї з декількох груп операторів у залежності від значення деякого виразу. Синтаксис:
Select Case вираз
Case умова1
[група операторів 1]
Case умова2
[група операторів 2]
………………………………………………
Case умова N
[Група операторів N]
End Select
У якості умов після слова Case можна записувати одне з таких виражень:
значення; наприклад, case “весна”
Is знак_відношення значення; наприклад, case Is <20
значення1 To Значення2; наприклад, case 10 To 50
Приклад 3.6.2. Процедура виводить повідомлення про рівень рейтингу.
Sub Вибір()
Dim x as Integer
x=InputBox(“Введіть число від 0 до 100 - значення рейтингу”)
Select case x
Case Is <30
MsgBox “Рейтинг низький”
Case 30 To 60
Msgbox “Рейтинг середній”
Case Is >60
Msgbox “Рейтинг високий”
End Select
End Sub