ຟັງຊັນ InputBox

ສະແດງຂໍ້ຄວາມແນະນຳໃນກ່ອງໂຕ້ຕອບເພື່ອໃຫ້ຜູ້ໃຊ້ປ້ອນຂໍ້ຄວາມ. ຂໍ້ມູນທີ່ປ້ອນຈະຖືກກຳນົດໃຫ້ກັບຕົວປ່ຽນ.

ຄຳສັ່ງ InputBox ເປັນວິທີທີ່ສະດວກໃນການປ້ອນຂໍ້ຄວາມຜ່ານກ່ອງໂຕ້ຕອບ. ຢືນຢັນການປ້ອນຂໍ້ມູນໂດຍການຄລິກ OK ຫຼື ກົດ Return. ຂໍ້ມູນທີ່ປ້ອນຈະຖືກສົ່ງຄືນເປັນຄ່າຂອງຟັງຊັນ. ຫາກທ່ານປິດກ່ອງໂຕ້ຕອບດ້ວຍ Cancel, InputBox ຈະສົ່ງຄືນເປັນສະຕຣິງຫວ່າງເປົ່າ ("").

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

prompt: ນິພົດສະຕຣິງທີ່ສະແດງເປັນຂໍ້ຄວາມໃນກ່ອງໂຕ້ຕອບ.

title: ນິພົດສະຕຣິງທີ່ສະແດງຢູ່ໃນແຖບຫົວຂໍ້ຂອງກ່ອງໂຕ້ຕອບ.

default: ນິພົດສະຕຣິງທີ່ສະແດງຢູ່ໃນກ່ອງຂໍ້ຄວາມເປັນຄ່າເລີ່ມຕົ້ນຫາກບໍ່ມີການປ້ອນຂໍ້ມູນອື່ນ.

xpostwips: ນິພົດຈຳນວນຖ້ວນທີ່ກຳນົດຕຳແໜ່ງແນວນອນຂອງກ່ອງໂຕ້ຕອບ. ຕຳແໜ່ງນີ້ແມ່ນພິກັດສຳບູນ ແລະ ບໍ່ໄດ້ອ້າງອີງກັບໜ້າຕ່າງຂອງ LibreOffice.

ypostwips: ນິພົດຈຳນວນຖ້ວນທີ່ກຳນົດຕຳແໜ່ງແນວຕັ້ງຂອງກ່ອງໂຕ້ຕອບ. ຕຳແໜ່ງນີ້ແມ່ນພິກັດສຳບູນ ແລະ ບໍ່ໄດ້ອ້າງອີງກັບໜ້າຕ່າງຂອງ LibreOffice.

ຫາກລະເວັ້ນ xpostwips ແລະ ypostwips, ກ່ອງໂຕ້ຕອບຈະຢູ່ເຄິ່ງກາງໜ້າຈໍ. ຕຳແໜ່ງແມ່ນກຳນົດເປັນ twips.

ສະຕຣິງ

Sub ExampleInputBox
Dim sText As String
    sText = InputBox ("Please enter a phrase:","Dear User")
    MsgBox ( sText , 64, "Confirmation of phrase")
End Sub