ฟังก์ชั่น VBScript InputBox
ฟังก์ชั่น InputBox แสดงกล่องโต้ตอบที่ผู้ใช้สามารถป้อนข้อความและ / หรือคลิกที่ปุ่ม หากผู้ใช้คลิกคลิกปุ่ม OK หรือกดปุ่ม Enter บนแป้นพิมพ์ฟังก์ชัน 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 参数一起使用。 |
* หน่วย TWIP วัดเป็นเช่นเดียวกับในการแสดงผลภาพของระบบ
1 TWIP ของ 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 twips * ในตำแหน่งจากขอบด้านซ้ายของหน้าจอจะแสดงกล่องพร้อมท์
<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 * twips การแสดงผลตำแหน่ง
<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 สมบูรณ์