テキストボックスに半角数字のみ入力できるようにするには

VBの標準のテキストボックスを数字だけ入力できるようにします。
キーワードは「KeyPressイベント」。
KeyPressイベントは、キーボードの文字キーを押して離したときに発生します。

その引数に「KeyAscii」が渡されます。その引数には押されたキーボードのASCIIコードが
格納されています。VBのヘルプによると、「KeyAscii=0にすると入力をキャンセルできる」とあるので
数字以外のキーが押されたときは入力をキャンセルするようにします。


実行中の様子



Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = -(KeyAscii >= &H30 And KeyAscii <= &H39) * KeyAscii
End Sub

ダウンロード