Online Reference

Home

Microsoft Reference

Knowledge

Developer

VBA

Error Handling and Message Function

ดาวน์โหลดคู่มือ

InputBox Function

VBA Function, สำหรับการแสดง dialog box และรอให้ผู้ใช้ป้อนข้อความ แล้วคลิกปุ่ม และส่งค่าข้อความ

ไวยากรณ์

InputBox(prompt[,title] [,default] [,xpos] [,ypos] [,helpfile, context] )

ฟังก์ชัน InputBox มีไวยากรณ์ของส่วน คือ

ส่วน	รายละเอียด
Prompt	บังคับ, เป็น expression ข้อความแสดงข่าวสารใน dialog box ความยาวสูงสุดของ prompt ประมาณ 1,024 ตัวอักษร ขึ้นกับความกว้างของตัวอักษรที่ใช้ ถ้า prompt ยาวกว่าหนึ่งบรรทัด ให้แบ่งบรรทัดโดยใช้ตัวอักษร carriage return (Chr(13)) ตัวอักษร linefeed (Chr(10)) หรือรวมตัวอักษร carriage return และ ตัวอักษร linefeed (Chr(13) & Chr(10)) ระหว่างแต่ละบรรทัด
title	ไม่บังคับ, เป็น expression ข้อความแสดงชื่อที่แถบไตเติล (Title bar) ของ dialog box ถ้าไม่กำหนด title จะใช้โปรแกรมประยุกต์เป็นชื่อที่แถบไตเติล
default	ไม่บังคับ, เป็น expression ข้อความแสดงใน text box ตามค่า default ถ้าไม่มีการนำเข้าอื่น ถ้าไม่กำหนด default จะไม่มีการแสดงของ text box
xpos	ไม่บังคับ, เป็น expression ตัวเลขที่ระบุระยะห่างทางแนวนอนของขอบด้านซ้ายของ dialog box จากขอบด้านซ้ายของจอภาพ ถ้าไม่กำหนด xpos ตำแหน่งของ dialog box จะใช้กึ่งกลางของแนวนอน
ypos	ไม่บังคับ, เป็น expression ตัวเลขที่ระบุระยะห่างทางแนวตั้งของขอบด้านบนของ dialog box จากขอบด้านบนของจอภาพ ถ้าไม่กำหนด ypos ตำแหน่งของ dialog box จะใช้หนึ่งในสามของแนวนอนจากด้านบน
helpfile	ไม่บังคับ, เป็น expression ข้อความแสดงไฟล์ Help file ที่ให้คำแนะนำและการช่วยเหลือสำหรับ dialog box ถ้ากำหนด helpfile จะต้องกำหนด context ด้วย
context	ไม่บังคับ, เป็น expression ข้อความแสดงหมายเลข Help context ที่กำหนดตามหัวข้อการช่วยเหลือโดยผู้เขียน Help ถ้ากำหนด context จะต้องกำหนด helpfile ด้วย

ลักษณะการประยุกต์

เมื่อมีการกำหนดอากิวเมนต์ helpfile และ context ผู้ใช้สามารถกดปุ่ม F1 เพื่อดูหัวข้อการช่วยเหลือที่ตรงกับ context ในโปรแกรมประยุกต์บางโปรแกรม เช่น Microsoft Excel จะเพิ่มปุ่ม Help ให้โดยอัตโนมัติใน dialog box ถ้าผู้ใช้คลิกปุ่ม OK หรือกดปุ่ม Enter ฟังก์ชัน InputBox จะส่งค่าข้อความที่อยู่ text box ถ้าผู้ใช้คลิก Cancel ฟังก์ชัน InputBox จะส่งค่า zero-length string (“”)

หมายเหตุ การกำหนดอากิวเมนต์นอกเหนือจากอากิวเมนต์แรกแล้ว ต้องใช้ฟังก์ชัน InputBox เป็น expression การไม่กำหนดบางตำแหน่งของอากิวเมนต์ต้องใช้เครื่องหมายจุลภาค (,) ในการข้ามตำแหน่งนั้น

ดูเพิ่มเติม

ฟังก์ชัน MsgBox

วิธีการประยุกต์ใน Access

จะไม่สามารถเปิดไฟล์ช่วยเหลือ (Help) จาก dialog box ที่สร้างโดยฟังก์ชัน Inputbox ใน Microsoft Access ถ้ากำหนดค่าของอากิวเมนต์ helpfile และ context จะไม่ได้รับการพิจารณา และไม่มีปุ่ม Help บน Input box แต่ Microsoft Access จะไม่สร้างข้อความผิดพลาด

วิธีการประยุกต์ใน Excel
ใน Microsoft Excel ข้อความในอากิวเมนต์ prompt เก็บข้อความได้ไม่เกิน 256 ตัวอักษร

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน InputBox ซึ่งมีวิธีการหลายแบบในการใช้ฟังก์ชันนี้ ในการให้ผู้ใช้ป้อนค่า ถ้าไม่กำหนดตำแหน่ง X และ Y ตำแหน่งของ dialog box จะอยู่ที่กึ่งกลางของแกนโดยอัตโนมัติ ให้ตัวแปร MyValue เก็บค่าที่ป้อนโดยผู้ใช้ ถ้าผู้ใช้คลิก OK หรือกดปุ่ม Enter ถ้าผู้ใช้คลิก Cancel ฟังก์ชัน InputBox จะส่งค่า zero-length string (“”)

Dim Message, Title, Default, MyValue

Message = "Enter a value between 1 and 3" ' กำหนด prompt.
Title = "InputBox Demo" ' กำหนด title.
Default = "1" ' กำหนด default.

' แสดงข่าวสาร, แถบไตเติล และค่าเริ่มต้น
MyValue = InputBox(Message, Title, Default)

' ใช้ Helpfile และ context ปุ่ม Help จะเพิ่มโดยอัตโนมัติ
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' แสดง dialog box ที่ตำแหน่ง 100, 100.
MyValue = InputBox(Message, Title, Default, 100, 100)

ตัวอย่างการประยุกต์ใน Access

ตัวอย่างการใช้ฟังก์ชัน InputBox ในส่งชื่อผู้ใช้ หมายเหตุ ไม่สามารถเปิดไฟล์ช่วยเหลือ (Help) จาก dialog box ที่สร้างโดยฟังก์ชัน Inputbox ใน Microsoft Access

Sub Greeting()
Dim strInput As String, strMsg As String

  strMsg = "Enter your name."
  strInput = InputBox(Prompt:=strMsg, _
     Title:="User Info", XPos:=2000, YPos:=2000)
  MsgBox "Hello, " & strInput

End Sub