Page 62 - 4450

Нестандартні діалогові вікна

Іноді з’ясовується, що можливостей діалогових вікон
MsgBox і InputBox не вистачає, і тоді вам доводиться
конструювати власні діалогові вікна. У своїх проектах
прагніть використовувати одні і ті ж діалогові вікна, щоб всі
додатки виглядали однаково.
Оболонкою називається функція, в якій викликаються
інші функції і процедури. Оболонки спрощують програму і
дозволяють створювати модулі, призначені для
багаторазового використовування. Основна перевага
оболонки полягає у тому, що ви можете всього один раз
написати програмний код, а користуватися ним знову і знову.
Розглянемо приклад:
Відкрийте вікно програми для попереднього прикладу.
Додайте наступний фрагмент:
Private Sub cmdTryMe_Click()
Dim rс As String
rс = InputBox("Введіть ім’я:")
If rс = "АДМІНІСТРАТОР" Then
MsgBox "Здрастуй, адміністратор!"
Else
MsgBox "Привіт, " & re & "!"
End If
End Sub
3. Запустіть додаток.
4. Введіть в текстовому полі АДМІНІСТРАТОР і
натисніть кнопку ОК.

Використання структури Select Case для обробки
вхідних значень із поля зі списком

Ви використовуєте властивості List1.Text і
List1.Listlndex для отримання вхідних даних, скористаєтеся
структурою Select Case для відображення вітального
повідомлення одною з чотирьох мов.

60