金額を入力して計算するルーチンを作成しています。
以下のコードで、数字以外は入力不可にしたのですが・・・・
数値を訂正するためのBack Spaceも入力できなくて困っています。
0~9までしか受け付けないコードなのはわかっていますが、それに加えてBack Spaceも受け付けられるようにするにはどんなコードを書けばよいでしょうか。

Private Sub genkin_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then Exit Sub
Else
KeyAscii = 0
Beep
End If
End Sub

このQ&Aに関連する最新のQ&A

A 回答 (2件)

どもども田吾作7です



>If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then Exit Sub
ここの意味を理解されてますでしょうか?
これはパラメータのKeyAsciiの入力制限を行っております。
Asc(0)は48です。Asc("9")は57です。


まずそれはそれでおいといて、、、
プレスイベントのコードをコメントして、
Debug.Print KeyAscii
と書いて文字入力してみてください。
イミディエイトウィンドウに、入力された文字コードが出力されます。
同時に[BackSpace]が8という値が得ることもわかると思います。


ですのでプレスイベントは、次のようになります。
If KeyAscii >= Asc(0) And KeyAscii <= Asc(9) Then Exit Sub
If KeyAscii = 8 Then Exit Sub
KeyAscii = 0
Beep



これは参考までなのですが・・・
Microsoft Masked Edit Controlというのをご存知ですか?
メニューバーの[プロジェクト][コンポーネント]の中に存在しています。
これを使用すると、数値、日付など、入力制限を行うことの出来ます。

でわでわ
    • good
    • 0
この回答へのお礼

ありがとうございます。 もう初心者には何が何だか・・・ の世界で本当に助かります。 Microsoft Masked Edit Control を早速フォームに乗せてみました。 こんな便利なコントロールがあるなんて、「そんなん知ら~ん!」って感じでした。

お礼日時:2001/07/13 00:02

手元にVisual Basicがないので、確認はしていませんが


以下のコードではダメなのでしょうか?

Private Sub genkin_KeyPress(KeyAscii As Integer)
 If(KeyAscii >= Asc("0") And (KeyAscii <= Asc("1")) _
   Or KeyAscii <> Asc(バックスペースの番号) Then
  Exit Sub
 Else
  KeyAscii = 0
  Beep
 End If
End Sub

これではだめなのでしょうか?
ではでは☆

この回答への補足

or でつなぐとなぜかどんなキーでも受け付けてしまいます。
なぜでしょうか・・・ 何度試してもだめなんですよね。
どこかコードがまちがっているのかなぁ・・・

補足日時:2001/07/12 23:11
    • good
    • 0
この回答へのお礼

教えていただいたコードを参考に何とか解決しました。
ありがとうございました。

お礼日時:2001/07/12 23:59

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング