16進数

質問

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= Asc("a") And KeyAscii <= Asc("f") Then

Else
KeyAscii = 0
Beep

End If

End Sub

上のソースだと数字が入りません。
どうすれば入力できますか。

※ｚと入れると強制終了になってしまうので、上のソースを入れたんですが・・・

※タグが崩れて見にくくてすいません

回答No.1

osamuy · ベストアンサー

If (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Or _
　(KeyAscii >= Asc("a") And KeyAscii <= Asc("f")) Or _
　(KeyAscii >= Asc("A") And KeyAscii <= Asc("F")) Then

――とか。

お礼

ご回答ありがとうございました。