戻る

数字以外の文字に入力制限を設ける

目的

テキストボックスに入力可能な文字を制限する。数値以外は入力不可能にする。

ポイント

テキストボックスのKeyPressイベントで入力文字を監視する。

サンプルコード

Option Explicit Private Sub txtTest_KeyPress(KeyAscii As Integer) ' 数字以外の文字に入力制限を設ける     Const Numbers$ = "-0123456789." ' 入力許可文字          If KeyAscii <> 8 Then ' バックスペースは例外         If InStr(Numbers, Chr(KeyAscii)) = 0 Then             KeyAscii = 0 ' 入力を無効にする             Exit Sub         End If     End If      End Sub

ソースのダウンロード