16進数

（.net）
テキストボックスに１６進数のみ入力が出来るようにするにはどうすればいいのｄしょうか？

VB６では下記ので出来たと思うのですが　netではできないのです。
教えて下さい。


If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then
Else

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

Else
KeyAscii = 0
Beep

End If

End If

No.1 ベストアンサー 回答者： taknt 回答日時： 2003/05/26 14:43

あんまりスマートじゃないけど

If not((KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) or (KeyAscii >= Asc("a") And KeyAscii <= Asc("f"))) Then
KeyAscii = 0
Beep

End If

と したらいいでしょう。

この回答へのお礼

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

お礼日時：2003/07/28 22:11

No.3 回答者： imogasi 回答日時： 2003/05/27 23:06

ＶＢ．ＮＥＴでないが、この辺はＶＢの根幹に関わるところなので、変化ないと思いますので、参考に。

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For i = 1 To Len(TextBox1.Text)
a = Asc(Mid(TextBox1.Text, i, 1))
' MsgBox a
Select Case a
Case Is <= 57 And a >= 48
GoTo p01
Case Is <= 102 And a >= 92
GoTo p01
Case Else
MsgBox "Err"
Exit Sub
End Select
p01:
Next i
MsgBox "OK"
End Sub
Isのところ辺りとか、Andなどや、なぜか９２と１０２の前後を逆にすると旨く行かないとかご参考までに。
イベントをＴｅｘｔＢｏｘのＤｂｌＣｌｉｃｋなどにしているのは、小生の無知のせいで、良いものがあれば変えて下さい。

この回答へのお礼

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

お礼日時：2003/07/28 22:11

No.2 回答者： maruru01 回答日時： 2003/05/27 09:21

こんにちは。

maruru01です。

これもスマートじゃないですが、16進数を意識した方法です。


Private Sub Text1_KeyPress(KeyAscii As Integer)

　　Dim ret As Double

　　On Error Resume Next

　　ret = CDbl("&H" & Chr(KeyAscii))
　　If Err.Number <> 0 Then
　　　　KeyAscii = 0
　　　　Err.Clear
　　End If

End Sub

この回答へのお礼

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

お礼日時：2003/07/28 22:11