「テキストボックスの入力制限(数字とBSPとDELE以外無効)」の編集履歴（バックアップ）一覧に戻る

テキストボックスの入力制限(数字とBSPとDELE以外無効) - (2008/06/17 (火) 15:36:27) の編集履歴(バックアップ)

---

   Private Function NumLimit(ByRef e)

       If _
           e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.D0) _
           Or e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.D1) _
           Or e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.D2) _
           Or e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.D3) _
           Or e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.D4) _
           Or e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.D5) _
           Or e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.D6) _
           Or e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.D7) _
           Or e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.D8) _
           Or e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.D9) _
           Or e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Back) _
           Or e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Delete) _
       Then
       Else
           e.Handled = True
       End If

   End Function