Функция InputBox

Отображает приглашение, по которому пользователь может ввести текст. Введённое значение присваивается переменной.

Инструкция InputBox является удобным методом ввода текста через диалоговое окно. Подтвердите ввод, нажав кнопку "ОК" или клавишу ВВОД. Результат передаётся как возвращаемое значение функции. Если это диалоговое окно закрыть с помощью кнопки "Отмена", InputBox возвращает строку нулевой длины ("").

Синтаксис:


InputBox (Prompt As String[, Title As String[, Default As String[, xpostwips As Integer, ypostwips As Integer]]]) As String

Параметры:

prompt: String expression displayed as the message in the dialog box.

title: String expression displayed in the title bar of the dialog box.

default: String expression displayed in the text box as default if no other input is given.

xpostwips: Integer expression that specifies the horizontal position of the dialog. The position is an absolute coordinate and does not refer to the window of LibreOffice.

ypostwips: Integer expression that specifies the vertical position of the dialog. The position is an absolute coordinate and does not refer to the window of LibreOffice.

If xpostwips and ypostwips are omitted, the dialog is centered on the screen. The position is specified in twips.

Return value:

String

Пример:


Sub ExampleInputBox
Dim sText As String
    sText = InputBox ("Введите фразу:","Уважаемый пользователь")
    MsgBox ( sText , 64, "Подтверждение фразы")
End Sub

Пожалуйста, поддержите нас!