สอบถาม การเข้ารหัส Password และการห้ามกรอกอักขระพิเศษ

  ' ตรวจสอบค่าเฉพาะ 0 - 9, a - z  และ A - Z และเครื่องหมาย _ กับ -
    ' เมื่อ KeyAscii ก็คือค่า KeyAscii ที่ส่งมายังฟังค์ชั่น
    Function CheckAlphaNumericUCaseID(ByVal Index As Integer) As Boolean
        ' =================================================
        Select Case Index
            ' เมื่อ ASCII Code 48 - 57 คือตัวอักขระ 0 - 9
            ' เมื่อ ASCII Code 65 - 90 คือตัวอักขระ A - Z
            ' เมื่อ ASCII Code 97 - 122 คือตัวอักขระ a - z
            ' รวมทั้งแปลงตัวอักขระ _ (Underscore) กับ - (Minus) ด้วยคำสั่ง Asc เพื่อไม่ต้องจำ ASCII Code
            ' ในแต่ละ Case ก็คือ หาก KeyAscii (Index เป็นตัวแปรรับค่า) ที่ส่งมานี้
            ' มีค่าตรงกับแต่ละ Case ก็จะส่งค่า KeyAscii เดิมนั้นกลับไป
            ' แต่หากไม่ตรงสักตัว ก็คือ Case Else ให้ส่งค่า KeyAscii = 0 กลับ
            ' เมื่อ KeyAscii = 0 หมายถึงไม่มีการกดคีย์ใดๆ ... ว่าง่ายๆก็ไม่ยอมให้กดคีย์อื่นนอกเหนือจากที่ต้องการ
            Case 48 To 57, 65 To 90, 97 To 122, Asc("-"), Asc("_")
                CheckAlphaNumericUCaseID = False
            Case 8, 13      ' Back Space,' Enter
                CheckAlphaNumericUCaseID = False
            Case Else       ' นอกเหนือจากที่กำหนดมาตาม Case ด้านบน ให้ส่งค่ากลับเป็น 0
                CheckAlphaNumericUCaseID = True
        End Select
    End Function


'use
txtPassword_Keypress
    e.Handled = CheckAlphaNumericUCaseID(Asc(e.KeyChar))