เราสามารถกำหนด Textbox ให้รับเฉพาะภาษาไทยเท่านั้น ได้ไหมคะ

[มาลี]

หนูอยากได้เป็นคำสั่งโค๊ดนะคะ ไม่อยากได้แบบกำหนด input mask ค่ะ
เพราะต้องการจะใส่ข้อความเตือน และ คำสั่งอื่นๆต่อไปอีกค่ะ

ประมาณว่า

หากผู้ใช้เผลอคีย์ข้อความที่ไม่ไช่ภาษาไทยเข้าไป ก็จะให้มีข้อความเตือนขึ้นมา และ อื่นๆ

ขอบคุณค่ะอาจารย์

[พีระณัฐ สุขกำเนิด]

หลักการเบื้องต้น
1.ต้องค่า text box ได้ว่าพอโฟกัสมาที่ object นี้แล้วจะให้เป็นภาษาอะไร keyboard language มีให้เลือก thai/eng หรือ system (ค่าภาษาที่แอคทีฟขณะนั้น)
2. เขียนฟังก์ชัน นำค่าใน text มาวนลูปเช็ค array ไปทีละตัวว่าไม่พบ a-z ให้ผลลัพธืเป็นจริงหรือเท็จ

[มาลี]

  เย้...ทำได้ตามที่ต้องการแล้ว
ขอบพระคุณมากเลยค่ะอาจารย์ ขออภัยที่เข้ามารายงานผลล่าช้าหน่อยนะคะ

[Un]

โค๊ด: [Select]

Private Sub TextBox1_AfterUpdate()
     Dim i As Integer
     Dim strText As String
     Dim strMessage As String
     strText = Me.TextBox1.Value
     For i = 1 To Len(strText)
           If Asc(Mid(strText, i, 1)) < 128 Then
                strMessage = "กรุณาพิมพ์เฉพาะภาษาไทยเท่านั้น"
                MsgBox strMessage, vbExclamation, "ข้อผิดพลาด"
                Me.TextBox1.SetFocus
                Exit Sub
           End If
     Next i
End Sub
ตัวอักษรที่ไม่ใช่ภาษาไทย (ที่มี ASCII code น้อยกว่า 128)
ลองอีกแบบนึงครับ

[มาลี]

ว้า..ว เยี่ยมเลยค่ะอาจารย์ UN
โค๊ดสั้นเข้าใจง่ายสามารถดัดแปลงเพิ่มเติมได้ง่ายดีค่ะ
แต่ติดตรงที่ว่า เวลาใส่ตัวเลขภาษาไทย มันก็ไม่ยอมให้ผ่านด้วย แต่ก็โอเคแล้ว ไม่ซีเรียสเรื่องตัวเลขค่ะอาจารย์
เพราะช่องข้อความที่ต้องการให้ใส่นั้น ก็ไม่มีข้อมูลตัวเลขอยู่แล้ว
แต่สมมติหากสามารถอนุญาตให้ใส่ตัวเลขไทยได้ด้วย ก็จะสามารถนำไปประยุกต์ใช้กับข้อมูลที่อยู่ของลูกค้าได้้ด้วยค่ะ

[UnKnown]

ตัวเลขภาษาไทย ASCII อยู่ในช่วง 240-249 ตามโค้ดอาจารย์ UN ใช้ได้นะครับ

แต่ถ้าตัวเลข 0-9 นั้น ASCII อยู่ในช่วง 48-57 แก้โค้ดประมาณนี้ครับ

โค๊ด: [Select]

Private Sub TextBox1_AfterUpdate()
     Dim i As Integer
     Dim strText As String
     Dim strMessage As String
     strText = Me.TextBox1.Value
     For i = 1 To Len(strText)
           If Asc(Mid(strText, i, 1)) < 48 Then
                strMessage = "กรุณาพิมพ์เฉพาะภาษาไทยเท่านั้น"
                MsgBox strMessage, vbExclamation, "ข้อผิดพลาด"
                Me.TextBox1.SetFocus
                Exit Sub

           ElseIf Asc(Mid(strText, i, 1)) > 57 Then
                If Asc(Mid(strText, i, 1)) < 128 Then
                strMessage = "กรุณาพิมพ์เฉพาะภาษาไทยเท่านั้น"
                MsgBox strMessage, vbExclamation, "ข้อผิดพลาด"
                Me.TextBox1.SetFocus
                Exit Sub
                End If
           End If
     Next i
End Sub


[มาลี]

จากการทดสอบโค๊ดของอาจารย์ UnKnown แล้วพบว่า
หากใส่ภาษาไทย หรือตัวเลข เพียงอย่างใดอย่างหนึ่ง โอเค มันปล่อยให้ผ่านได้ค่ะ
ส่วนภาษาอังกฤษนั้นมันจับได้ไม่ยอมให้ผ่าน อันนี้โอเคเลย

แต่หากใส่เป้นภาษาไทยร่วมกับตัวเลข อันนี้มันก็จะไม่ยอมให้ผ่านด้วยค่ะ เช่น

บ้านเลขที่ 25/3 ตำบลตัวอย่าง
หรือ
บ้านเลขที่ ๒๕/๓ ตำบลตัวอย่าง

ไม่ว่าจะเป็นเลขไทยหรือเลขอังกฤษก็ให้ผลแแบบเดียวกันคือไม่ยอมให้ผ่านค่ะ
พยายามลองแกะดัดแปลงแก้ไขโค๊ดแล้ว แต่ยังไม่สำเร็จเลยค่ะ
ขอรบกวนท่านด้วยนะคะ

[UnKnown]

กรณีบ้านเลขที่ 21,22 หรือ 22/1-2 เพื่อให้ใช้ , - / ได้แก้ตรง If Asc(Mid(strText, i, 1)) < 48 Then เป็น

โค๊ด: [Select]

If Asc(Mid(strText, i, 1)) < 44 Then
ตาราง Ascii ภาษาไทย อังกฤษ