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

Стрічкові константи записуються в лапках “”.

Константи типу Date (дата) записуються в штахетах: # #. Наприклад, Dim Dr As Date

Dr=#12. 05. 79#

VBA має великий список функцій для роботи з перемінними різних типів:

Ім’я функції	Призначення функції
Abs()	Абсолютний розмір - Ix
Atn()	Arctg(x)
Cos()	Cos(x)
Exp()	Экспонента, exp(x) - ex
Log()	Логарифм натуральний x
Rand()	Випадкове число з інтервалу (0,1)
Sin()	Sin(x)
Sqr()	Квадратний корінь із x
Tan()	Tg(x) - тангенс
Int()	Ціла частина від аргументу x
	IsNull()	Чи є перемінна порожнім
	IsNumeric()	Чи є переменная числом
	IsObject()	Чи є переменная об'єктом
	Ccur()	Перетворить аргумент до типу грошовий
	Cdate()	Перетворить аргумент до типу дата
	Cint()	Перетворить аргумент до типу цілий
	CSng()	Перетворить аргумент до типу речовинний
	CStr()	Перетворить аргумент до типу рядок
	Mid(рядок,нпоз, колсимволов)	Повертає частина рядка, що містить зазначена кількість символів
	Len(рядок)	Число символів рядка
	Trim(рядок)	Копія рядка без прогалин
	InStr(начпозиция,строк1,строка2)	Повертає позицію входження одного рядка усередині інший
	Now()	Поточна дата і час
	Day, Month, Year()	День, місяць і рік для аргументу типу дата
	DateDiff(інтервал, дата1,дата2)	Число тимчасових інтервалів між датами. Припустимі значення для аргументу інтервал: “d” - днів, ”m” - місяців, “q” - кварталів,”y” - років. Наприклад, DateDiff(“m”,#17. 03. 2000#, Now()) Обчисляє кількість місяців
	Iif(умова, выраж1, выраж2)	Повертає одне з двох альтернативних значень виражень.

Вікно повідомлень (MsgBox) і вікно введення (InputBox) дозволяють організувати найпростіший діалог із користувачем. Синтаксис вікна введення такий:

Перемінна=InputBox(“текст”, ”заголовок вікна”)

Цей оператор виводить на екран діалогове вікно, що містить текст-повідомлення і поле для введення даних. Очікує введення тексту користувачем і натискання кнопки. Введене значення записується в перемінну. Наприклад,

вартість=InputBox(“Введіть вартість виробу”, “Запит на введення
вартості”).

На екран буде виведене таке вікно:

Після натискання кнопки OK значення 12,5 буде записано в перемінна вартість.

Вікно повідомлень MsgBox може визиватися як процедура (тільки для виведення) або як функція (для виведення і прийняття відповіді користувача). Синтаксис виклику процедури такий:

MsgBox повідомлення, кнопки+значки, заголовок вікна

Функція MsgBox виводить на екран діалогове вікно, що містить повідомлення, очікує натискання кнопки користувачем і повертає значення типу Integer, що вказує, яка кнопка була натиснута. Синтаксис виклику функції такий:

кнопка=MsgBox(повідомлення, кнопки+значки, заголовок вікна)

Параметр повідомлення містить текст, що виводиться у вікні діалогу.

Параметр кнопки вказує число і тип відображуваних кнопок у вікні повідомлення. Можливі значення аргументу:

Константа	Значення	Відображаються кнопки
vbOKOnly		OK
vbOKCancel		OK, Отмена
vbYesNoCancel		Да, Нет, Отмена
vbYesNo		Да, Нет
vbRetryCancel		Повторить, Отмена

У залежності від того, яка кнопка натиснута, значення, що повертається може бути таким:

Константа	Значення	Натиснута кнопка
vbOK		OK
vbCancel		Скасування
vbAbort		Перервати
vbRetry		Повторити
vbIgnore		Пропустити
vbYes		І
vbNo		Немає

Наприклад, оператор

Відповідь=MsgBox(“Ви згодні? ”,vbYesNo+VbQuestion,”Питання”)

Виведе на екран таке вікно, у якому очікується натискання однієї з кнопок:

Параметр значки може приймати такі значення: vbInformation (буква i), vbExclamation (знак оклику), vbQuestion (знак питання), vbCritical (знак останова).

Приклад 3.1. Використання діалогових вікон.

Sub ТестОкон()

Dim Клієнт as String, Відповідь as Integer

Клієнт=InputBox(“Введіть ваше ім'я”,”Приклад вікна введення”)

If Клієнт <>”” Then

MsgBox “Привіт,”& Клієнт, vbInformation, “Приклад повідомлення”

Else

MsgBox “Ви забули ввести своє ім'я”, vbExclamation

End If

Відповідь=MsgBox(“Ви згодні? ”,vbYesNo+VbQuestion,”Питання”)

If Відповідь=vbYes Then

MsgBox “Ви відповіли ТАК”

Else

MsgBox “Ви відповіли НІ ”

End If

End Sub

Дата добавления: 2014-10-23