テキストボックスの入力制限(数字とBSPとDELE以外無効) - restinpiece @ ウィキ

引数にテキストボックスの引数eを渡すと。数値とバックスペースとデル以外揉み消してくれます。

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