1.3. Набуття значень від функції MsgBox()

Діалогове вікно, яке не містить варіантів вибору, не дуже зручно використовувати, якщо не визначити, яку командну кнопку натиснув користувач. Потрібно використовувати функціональну форму MsgBox() і перевірити повернене функцією значення.

Можливі значення, повернені функцією, і відповідні їм константи Visual Basic приведені в таблиці 9.2.

Таблиця 9.2. Значення, повернене функцією MsgBox()

Код	Константа	Командна кнопка
	vbOK	OK
	vbCancel	Cancel
	vbAbort	Abort
	vbRetry	Retry
	vbIgnore	Ignore
	vbYes	Yes
	vbNo	No

Для використання діалогового вікна, описаного вище, можна створити наступну процедуру:

Sub Example_Dialog1()

Dim Code As Integer, Code_Button As Integer

Code = vbYesNo + vbDefaultButton2 + vbExclamation + vbAppliсationModal

Code_Button = MsgBox(prompt:=”Ви, дійсно хочете це зробити?”, Buttons:=Code)

Select Case Code_Button

Case vbYes

'Блок для відповіді Так (Yes)

Debug.Print «Так»

Case vbNo

'Блок для відповіді Ні (No)

Debug.Print “Ні”

End Select

End Sub

Рисунок 9.5. Вікно діалогу процедури Example_Dialog1

Ця процедура обчислює код командних кнопок і піктограм діалогового вікна, відображає це діалогове вікно і зберігає повернене значення в змінній Code_Button. Потім застосовується структура Select Case, що вибирає блок коду, який відповідає поверненому значенню. Запустіть цю процедуру, на панелі Immediate, вікна Debug — і вона надрукує «Так» чи «Ні» залежно від того, яку командну кнопку натиснемо для закриття діалогового вікна.

2. Вживання функції InputBox()

Функція InputBox() створює вбудоване діалогове вікно для введення, редагування тексту та містить командні кнопки ОК і Cancel. Коли ви застосовуєте цю функцію, будь-який текст, записаний в текстове вікно діалогового вікна, буде повернений функцією після того, як користувач натисне командну кнопку ОК. Якщо ж користувач натисне командну кнопку Cancel, то буде повернений порожній рядок ("").

Синтаксис:

змінна = InputBox(prompt[, title] [,] [, xpos] [, ypos] [, helpfile, context])

Аргументи розташовані в квадратних дужках є не обов’язковими, prompt – текст, коментар для поля вводу; title – заголовок, текст в рядку заголовка вікна діалогу; default – текст, що передається змінній по замовченню; xpos та ypos – цілі числа, що надають координати розташування вікна діалогу; helpfile – текст, назва файлу - довідки, context – ціле число, індекс файлу - довідки.

Значення, повернене функцією є рядком тексту. Якщо зміна повинна отримати від функції числове значення, то ваша процедура повинна використовувати функцію Val() для перетворення в число значення, поверненого функцією InputBox() (з символьного представлення в двійкове, придатне для використання в програмі):

змінна = Val(InputBox(prompt[, title] [,] [, xpos] [, ypos] [, helpfile, context]))

Інколи користувачі записують в діалогове вікно помилкові дані тому слід, контролювати правильність даних, що вводяться. Для такого контролю слід застосовувати логічні функції ( що наведені в темі 5, та починаються на Is)