Функция VBScript InputBox
Полная VBScript Ссылка Функция InputBox отображает диалоговое окно, в котором пользователь может ввести текст и / или нажать на кнопку. Если пользователь нажимает кнопку нажать кнопку OK или нажать на клавиатуре клавишу ВВОД, функция InputBox возвращает текст в текстовом поле. Если пользователь нажимает на кнопку Отмена, функция возвращает пустую строку ( "").
Примечание: Если вы указали HelpFile и контекстные параметры, это добавит кнопку Справка в диалоговом окне.
Совет: Смотрите функцию MsgBox.
грамматика
InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])
| 参数 | 描述 |
|---|---|
| prompt | 必需。显示在对话框中的消息。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符（Chr(13)）、换行符（Chr(10)）或回车换行符的组合（Chr(13) & Chr(10)）来分隔各行。 |
| title | 可选。对话框的标题。默认是应用程序的名称。 |
| default | 可选。一个在文本框中的默认文本。 |
| xpos | 可选。数值表达式，用于指定对话框的左边缘与屏幕左边缘的水平距离（单位为 twips*）。如果省略 xpos，则对话框会在水平方向居中。 |
| ypos | 可选。数值表达式，用于指定对话框的上边缘与屏幕上边缘的垂直距离（单位为 twips*）。如果省略 ypos，则对话框显示在屏幕垂直方向距下边缘大约三分之一处。 |
| helpfile | 可选。字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。必须与 context 参数一起使用。 |
| context | 可选。数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。必须与 helpfile 参数一起使用。 |
* Твип единица измерения такая же, как в визуальном дисплее системы.
1 твип от 1/1440 дюйма.
примеров
Пример 1
<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name")
End Function
</script>
Function myFunction()
fname=InputBox("Enter your name")
End Function
</script>
Попробуйте »
Пример 2
Быстрое окно с заголовком:
<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name","Userinput")
End Function
</script>
Function myFunction()
fname=InputBox("Enter your name","Userinput")
End Function
</script>
Попробуйте »
Пример 3
Подсказка по умолчанию коробка с поле ввода текста:
<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name",,"Donald Duck")
End Function
</script>
Function myFunction()
fname=InputBox("Enter your name",,"Donald Duck")
End Function
</script>
Попробуйте »
Пример 4
700 твипах * в положении от левого края экрана отображается подсказка окно.
<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name",,,700)
End Function
</script>
Function myFunction()
fname=InputBox("Enter your name",,,700)
End Function
</script>
Попробуйте »
Пример 5
Совет из коробки на краю экрана 500 твипах * Позиция дисплея.
<script type="text/vbscript">
Function myFunction()
fname=InputBox("Enter your name",,,,500)
End Function
</script>
Function myFunction()
fname=InputBox("Enter your name",,,,500)
End Function
</script>
Попробуйте »
Полная VBScript Ссылка