IBM Lotus Symphony
|
Выдает поле в окне, в котором пользователь может ввести текст. Введенное значение присваивается переменной.
С помощью функции InputBox удобно вводить текст в окнах. Для подтверждения ввода нажмите кнопку OK или клавишу Return. Введенное значение возвращается в качестве значения функции. Если вы закроете окно, нажав Отмена, то функция InputBox возвратит строку нулевой длины ("").
InputBox (Сообщение As String[, Заголовок As String[, По_умолчанию As String[, Координата_x As Integer, Координата_y As Integer]]]])
String
Msg : строковое выражение, отображаемое в виде сообщения в окне.
Title : строковое выражение, отображаемое в строке заголовка окна.
Default : строковое выражение, отображаемое в текстовом поле при отсутствии другого ввода.
x_pos : целочисленное выражение, задающее горизонтальную координату окна. Это абсолютная координата, не связанная с окном приложения Lotus® Symphony™.
y_pos : целочисленное выражение, задающее вертикальную координату окна. Это абсолютная координата, не связанная с окном приложения Lotus Symphony.
Если параметры Координата_x и Координата_y опущены, то окно размещается в центре экрана. Координаты задаются в твипах.
Sub ExampleInputBox
Dim sText As String
sText = InputBox ("Введите текст:","Уважаемый пользователь")
MsgBox ( sText , 64, "Подтверждение введенного текста")
End Sub