ฟอรั่มของบล็อก http://pssix.blogspot.com


[ถาม] เกี่ยวกับ Inputbox

Share

Anothor
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 16
ความนิยม : 0
เข้าร่วมเมื่อ : 24/04/2014

[ถาม] เกี่ยวกับ Inputbox

ตั้งหัวข้อ by Anothor on 16/06/15, 10:18 pm

ถ้าเราจะทำให้ Input box ใส่ข้อความได้แค่ 10 ตัวอักษร ถ้าใส่มากกว่า นั้นจะใส่ไม่ได้ ต้องทำไงหรอครับ

แล้วถ้าเราจะเกมส์ข้อความที่อยู่ใน Input box มาเก็บไว้ใน Array ที่กำหนดขนาด ยกตัวอย่าง

ผมใส่ 1234567890 ลงใน Inputbox
แล้วนำ 1234567890 ไปเก็บไว่ใน Dim $Test[10]
ทำไง หรอ

thunmor
PSsix Member
PSsix Member


จำนวนข้อความ : 26
ความนิยม : 22
เข้าร่วมเมื่อ : 06/08/2012

Re: [ถาม] เกี่ยวกับ Inputbox

ตั้งหัวข้อ by thunmor on 21/07/15, 12:04 am

เขียนแบบนี้ครับ
Code:
$value = InputBox("ทดสอบ", "จำกัดขนาด10ตัวอักษร และ เก็บอักษรที่อยู่ใน Input box ใน Array", "", " M10")
Dim $test[StringLen($value)]

$count = 1
For $i = 0 To UBound($test) - 1
   $test[$i] = StringMid($value, $count, 1)
   MsgBox(0, "$test" & "[" & $i & "]", "อักษรตัวที่ " & $count & " = " & $test[$i])
   $count = $count + 1
Next

    เวลาขณะนี้ 26/09/17, 06:03 pm