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

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

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

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

เขียนแบบนี้ครับ

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