■ テキストボックスの入力制限 |
テキストボックスに指定した値以外を入力させないように制御するのは基本的に |
行うテクニックです |
KeyPress イベントで渡された引数 KeyAscii を 0 にすると、入力が無効になります |
[BS] キーが押された場合は、入力制限の対象外であるため、先頭行に必ず記述 |
するとよいでしょう |
[DEL] キーは KeyPress イベントの対象外であるため、意識する必要はありません |
下記は数字以外を入力制限するサンプルです |
Private Sub Text1_KeyPress(KeyAscii As Integer) ' [BS] キーの場合、入力制限を行わない If KeyAscii = 8 Then Exit Sub ' 押されたキーを判定する Select Case KeyAscii ' 数字の場合 Case Asc("0") To Asc("9") ' それ以外の場合 Case Else ' 入力を無効にする KeyAscii = 0 End Select End Sub |