从访问textbox - VBScript - Powerbuilder输入字母数字值

Private Sub TextBox1_KeyPress(KeyAscii As Integer)
    If Not (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii >= 65 And KeyAscii <= 90 Or KeyAscii >= 97 And KeyAscii <= 122) Then
        KeyAscii = 0 ' 阻止非字母和数字的输入
    End If
End Sub

integer li_key
li_key = GetKey()
If Not (li_key >= 48 And li_key <= 57 Or li_key >= 65 And li_key <= 90 Or li_key >= 97 And li_key <= 122) Then
    SetFocus(This)
    SetSel(Start, Length(This.Text))
End If

Dim input
input = TextBox1.Text
If Not ValidateInput(input) Then
    MsgBox "输入错误，请输入字母和数字。"
End If

Function ValidateInput(input)
    Dim regex
    Set regex = New RegExp
    regex.Pattern = "^[A-Za-z0-9]+$"
    ValidateInput = regex.Test(input)
End Function

string ls_input
ls_input = This.Text
If Not ValidateInput(ls_input) Then
    MessageBox("错误", "输入错误，请输入字母和数字。")
End If

Function ValidateInput(input)
    Return RegexMatch(input, "^[A-Za-z0-9]+$")
End Function