ベストアンサー

Back Spaceを入力可にするには？

2001/07/12 22:37

金額を入力して計算するルーチンを作成しています。以下のコードで、数字以外は入力不可にしたのですが・・・・数値を訂正するための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

xiaolong_goo
お礼率64% (252/388)

Visual Basic
回答数2
ありがとう数5

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

TAGOSAKU7
ベストアンサー率65% (276/422)

2001/07/12 23:37 回答No.2

どもども田吾作７です >If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then Exit Sub ここの意味を理解されてますでしょうか？これはパラメータのKeyAsciiの入力制限を行っております。 Asc(0)は４８です。Asc("9")は５７です。まずそれはそれでおいといて、、、プレスイベントのコードをコメントして、 Debug.Print KeyAscii と書いて文字入力してみてください。イミディエイトウィンドウに、入力された文字コードが出力されます。同時に[BackSpace]が８という値が得ることもわかると思います。ですのでプレスイベントは、次のようになります。 If KeyAscii >= Asc(0) And KeyAscii <= Asc(9) Then Exit Sub If KeyAscii = 8 Then Exit Sub KeyAscii = 0 Beep これは参考までなのですが・・・ Microsoft Masked Edit Controlというのをご存知ですか？メニューバーの[プロジェクト][コンポーネント]の中に存在しています。これを使用すると、数値、日付など、入力制限を行うことの出来ます。でわでわ

質問者

お礼 2001/07/13 00:02

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

ログインすると、全ての回答が全文表示されます。

その他の回答 (1)

noname#9414

2001/07/12 22:49 回答No.1

手元に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 これではだめなのでしょうか？ではでは☆

質問者