[VB2] 入力する文字種を制限する方法

概要

テキスト ボックスに特定の文字だけしか入力したくない場合でも、標準のテキスト
ボックスでは他の文字も入力できてしまいます。この資料は標準のテキスト ボック
スで入力する文字種を制限する方法について記述しています。

サンプル

以下は Text1 に数字 (“ 0 ”～“ 9 ”) だけを入力させる場合のサンプルです。
これは入力したい文字列以外の場合は、KeyAscii に 0 をセットすることで入力を
キャンセルさせることで実現しています。

  Sub Text1_KeyPress (KeyAscii As Integer)
      If (Chr$(KeyAscii) < "0") Or (Chr$(KeyAscii) > "9") Then
          KeyAscii = 0
      End If
  End Sub

この方法は MultiLine プロパティが False のテキスト ボックスで [Enter] キー
を押した時のビープ音をなくす場合にも使用できます。

  Sub Text1_KeyPress (KeyAscii As Integer)
      If KeyAscii = 13 Then
          KeyAscii = 0
      End If
  End Sub