Стандартні діалогові вікна

Для обміну інформацією з користувачем у Windows використовуються спеціальні форми, що називаються діалоговими вікнами. Вони привертають увагу користувача і забезпечують його реакцію (що відбувається!?). У цій лабораторній роботі ви дізнаєтеся, як користуватися діалоговими вікнами, вбудованими в Visual Basic, навчитися створювати і використовувати власні діалогові вікна.

У проектах Visual Basic часто зустрічаються два різновиди діалогових вікон: вікно повідомлень і вікно введення. Вікно повідомлення (MsgBox) виводить найпростіше повідомлення для користувача, а вікно введення (InputBox), використовується служить для введення інформації.

Вікно повідомлення. Оператор для створення вікна повідомлення виглядає так (у скороченому варіанті):

MsgBox (повідомлення, атрибути, заголовок),

де повідомлення – текст, що відображається у діалоговому вікні; заголовок – рядок у заголовку вікна; параметр атрибути визначає особливості вікна – а саме різні кнопки і значки, які відображаються в ньому. Нижче перераховані значення цього параметра і константи, що використовуються для визначення вікна повідомлення.

Константа	Значення	Стиль
vbOKOnly		Відображається тільки кнопка ОК
vbOKCancel		Відображається кнопки ОК і Cancel
vbAbortRetryIgnore		Відображається кнопки Abort, Retry і Ignore
vbYesNoCancel		Відображається кнопки Yes, No і Cancel
vbYesNo		Відображається кнопки Yes і No
vbRetryCancel		Відображається кнопки Retry і Cancel
vbCritical		Відображається значок критичного повідомлення
vbQuestion		Відображається знак питання(попередження)
vbExclamation		Відображається знак оклику (попе-редження)
vblnformation		Відображається значок інформаційного повідомлення

Значення констант можна складати, щоб досягти бажаного результату. Наприклад, щоб у вікні повідомлення були присутні кнопки ОК і Cancel, а також значок інформаційного повідомлення слід скористатися будь-яким з приведених варіантів:

DlgDef = vbOKCancel

DlgDef = 1 + 64

Потім значення змінної DlgDef використовується при виклику MsgBox.

Синтаксис функції MsgBox практично співпадає з синтаксисом однойменного оператора:

Dim rс As Integer

rc= MsgВох(повідомлення, атрибути, заголовок)

Вікно введення, як і вікно повідомлення, може викликатися оператором або функцією. Скорочений синтаксис функції виглядає так:

Dim rс As String

rc = InputВох(повідомлення, заголовок, за замовчуванням)

Цього разу параметр атрибути відсутній, проте з’являється додатковий параметр за замовчуванням. В ньому можна задати рядок, який за замовчуванням знаходитиметься в текстовому полі. Коли користувач натискає кнопку ОК, вміст цього поля привласнюється змінній (у нашому випадку rс). Якщо користувач натиснув кнопку Cancel, повертається рядок нульової довжини. Зверніть увагу — функція InputBox повертає рядок, а функція MsgBox — значення цілого типу.

Наступний приклад показує, як користуватися функцією InputBox:

Private Sub Command1_Click()

Dim rс As String

rс = InputBox("Введіть ім’я:")

MsgBox "Привіт, " & rс & "!"

End Sub

Запустити програму командою Run- Start. Натиснути кнопку, щоб викликати діалогове вікно InputBox. Ввести в текстовому полі своє ім’я і натиснути кнопку ОК. Цей маленький приклад у загальних рисах показує, як працюють діалогові вікна MsgBox і InputBox. Якщо все зроблено правильно, у вікні введення вам буде запропоновано ввести ім’я, після чого Visual Basic видає вікно повідомлення з рядком типа «Привіт, Стів!» (зрозуміло, у вашому випадку буде виведене ім’я, задане у вікно введення).