Private sub Text1_KeyPress(……)
if keyascii>=asc("0") and keyascii<=asc("9") and keyascii>=asc("A") and keyascii<=asc("F") and keyascii>=asc("a") and keyascii<=asc("f") Then
Else
keyascii=0
End ifEnd Sub
if keyascii>=asc("0") and keyascii<=asc("9") and keyascii>=asc("A") and keyascii<=asc("F") and keyascii>=asc("a") and keyascii<=asc("f") Then
Else
keyascii=0
End ifEnd Sub
keyascii得到输入的字符的值,具体见
zyl910(910:分儿,我来了!) (L2002)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii >= Asc("A") And KeyAscii <= Asc("F") Or KeyAscii >= Asc("a") And KeyAscii <= Asc("f") Or KeyAscii = 8 Then
Else KeyAscii = 0
End If