Функція InputBox

Відображає запрошення, за яким користувач може ввести текст. Введене значення присвоюється змінній.

Інструкція InputBox є зручним методом введення тексту через діалогове вікно. Підтвердіть його, натиснувши кнопку "Гаразд" або клавішу ENTER. Результат передається як обчислене значення функції. Якщо це діалогове вікно можна закрити за допомогою кнопки "Скасувати", InputBox повертає рядок нульової довжини ("").

Синтаксис:

InputBox (Повідомлення As String[, Заголовок As String[, Типове As String[, позиція_Х As Integer, позиція_У As Integer]]]])

Повернуте значення:

Рядок

Параметр:

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

Заголовок: рядковий вираз, який відображається в заголовку діалогового вікна.

Типово: рядковий вираз типово відображається в текстовому полі, якщо немає інших виведених даних.

позиція_Х: вираз з цілих чисел, який вказує горизонтальну позицію діалогового вікна. Ця позиція є абсолютною координатою і не має відношення до вікна офісної програми.

позиція_У: вираз з цілих чисел, який вказує вертикальну позицію діалогового вікна. Ця позиція є абсолютною координатою і не має відношення до вікна офісної програми.

Якщо значення позиція_Х і позиція_У не вказані, то діалогове вікно розміщується посередині екрану. Позиція вказується у твіпах.

Приклад:

Sub ExampleInputBox

Dim sText As String

    sText = InputBox ("Введіть фразу:","Шановний користувач")

    MsgBox ( sText , 64, "Підтвердження фрази")

End Sub