「TextBoxに数字しか入力できないようにする」への評価、コメント

>　（VB.NETでは「e.KeyChar < "0"c Or e.KeyChar > "9"c」）の条件式は、「!Char.IsDigit(e.KeyChar)」（VB.NETでは「Not Char.IsDigit(e.KeyChar)」）とすることもできます。

Char.IsDigit(e.KeyChar) は、全角数字でもtrue （.NET 4.8) なので、置き換えはできないようですね。
（.NETのバージョンによるのかはちょっとわかりません。）
Char.IsDigitはドキュメント的にも「Unicodeキャラクタが十進数の数字か」という書き振りなので全角でも受け付けてるのだと思います。

テキストボックスの文字列を正規表現置換で、数字だけに置換すればできそうですが、いかがでしょうか？

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

TextBox1.Text = System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "[^0-9]", "")

End Sub

> Visual Basic 2013だと最初のKeyPressイベントによる方法のソースだけでIME全角入力でも貼り付けでも数字以外入力できなくなってます。

ご報告、ありがとうございます。私もWindows 8.1、Visual Studio 2013（.NET Framework 4.5.1）で試してみたところ、全角の入力と、V+Ctrlキーによる貼り付けができませんでした。しかし、Insert+Shiftキーや、コンテキストメニューでの貼り付けはできてしまいました。Ctrlキーとアルファベットのキーを同時に押した時、KeyCharの値は、Aの時が1、Bの時が2となり、Vの時は22になるようです。ですので、V+Ctrlキーで貼り付ける時、貼り付ける文字列がすべて数字なら貼り付けを許可するということが、KeyCharが22かどうかを調べることでできそうです。

Visual Basic 2013だと最初のKeyPressイベントによる方法のソースだけでIME全角入力でも貼り付けでも数字以外入力できなくなってます。

> 「IMEのオン、クリップボードからの貼り付けを防ぐ」のサンプルコードにtypoがあります。
>
> 1行目のImports文の末尾に「;」があります。
> Imports System.Windows.Forms;

修正します。ご報告、ありがとうございました。

「IMEのオン、クリップボードからの貼り付けを防ぐ」のサンプルコードにtypoがあります。

1行目のImports文の末尾に「;」があります。
Imports System.Windows.Forms;

> 「IMEのオン、クリップボードからの貼り付けを防ぐ」の説明の３行目に誤字があります。

ご報告ありがとうございました。修正させていただきます。

> 掲示板の No32209 から始まるスレッドで話題になりましたが、ここで紹介されている C# 版の NumericTextBox の実装を用いた場合、Visual Studio のデザイナから使用できない問題があるようです。

とりあえず、AllowKeyCharsプロパティをメソッドにすることにしました。ご報告ありがとうございました。

掲示板の No32209 から始まるスレッドで話題になりましたが、ここで紹介されている C# 版の NumericTextBox の実装を用いた場合、Visual Studio のデザイナから使用できない問題があるようです。

「IMEのオン、クリップボードからの貼り付けを防ぐ」の説明の３行目に誤字があります。

「ここでは、数字のみで構成された文字列がクリップボードにあるときは貼り付けでき"ない"ようにしています。」
は
「ここでは、数字のみで構成された文字列がクリップボードにあるときは貼り付けでき"る"ようにしています。」
だと思います。

評価：悪い
vb.netのテキストに数値しか入力させないやつをコピペして実行してみた

deleteはいけるけどbackspaceが使えないような

今更ながらVB6から移行して
再学習しております。
先人様の知恵、お借りできて
恐縮です。

評価：良い
有難うございます。助かりました。

いつも参考にさせていただいてます。
数値入力のみの方法とのことですが、MaskedTextBoxつかって、「Mask」プロパティに「999,999,999」（例えば金額、カンマつき）とか設定する方法もあるのではないでしょうか。
大概右寄せなので、「RightToLeft」「TextAlign」プロパティを使えば調整できますし。

評価：良い
事あるごとに・・・と言うのは大げさでしょうか？
でも、大いに助かっています。いつも、ありがとうございます。

テキストボックスに実数しか入力できないようにするにはどうすればいいですか？

評価：良い
とても助かります。

評価：良い
同じ手法で、これ以外の制限もできるので、ずいぶん参考になりました。
ありがとうございます。

評価：良い
やり方だけでなく目的をわかりやすく示されていて
非常にいいです
これからも拝見させて頂きます
がんばってください

> 入力の瞬間のイベントから規制するのではなく、
> 入力後のテキストボックスの値をニューメリックチェックするべきです。

その点は記事の頭で「注意」として指摘しているのですが...。

> コピペで数字を貼り付けるユーザーさんを排除したら不親切。

少なくとも私の紹介したサンプルでは、数字の貼付けを排除しておりませんが...。

> ＩＭＥで変換して半角の数字を入力するパターンもあるし。

私の記事では、KeyPressイベントで数字の入力を防いでもIMEで入力できることを指摘し、その対処法を紹介しておりますが、実際にIMEを無効にするか否かはお読みになった方がご自分の都合に合わせてお決めになるべきだと考えております。

多分こてつさんのおっしゃりたいことは、「TextBoxに数字しか入力できないようにする方法を紹介するのはナンセンスだからやめるべきだ」ということなのだろうと想像しております。それは一つの考え方としては正しいかもしれませんが、一方で、どうしても必要だという方も多くいらっしゃいます。そのような方々のためにも、問題点をはっきりさせた上で対処法を紹介することは必要だと私は思います。

2006年3月16日 15:44:22の匿名さんも言ってるけど、
コピペで数字を貼り付けるユーザーさんを排除したら不親切。
ＩＭＥで変換して半角の数字を入力するパターンもあるし。
入力の瞬間のイベントから規制するのではなく、
入力後のテキストボックスの値をニューメリックチェックするべきです。

評価：良い
非常に役に立った

評価：良い
very good

評価：良い
If KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn Then Exit Sub
If Not Chr(KeyAscii) Like "[0-9]" Then
KeyAscii = 0
End If

評価：良い
分かりやすいですね

評価：良い
いろんなヒントがあり、問題解決の糸口がつかめました。

評価：良い
VB.NETでお仕事をしてるものとしてはありがテーです。

評価：良い
この様な、簡単だけどどうするの ? といった事柄は、参考文献を捜しても殆ど出ていません。VB6 では簡単にできても C# では ?? なことが結構有りますね。
本当に助かりました。

悪いとは言わないけど、この手のチェックはValidatingで行うように広めてほしい。貼り付け防げないでしょ。

評価：良い
非常に役に立ったので

評価：良い
丁度、入力でNumericチェックをどうしようか悩んでいたところ、このページを見つけました。ほとんどそのままのコピーでうまくいきました。有難うございました。

評価：良い
数だけ入力する方法を探していたところ，このページを見つけました．組み込んでみたところ，うまくいきました．ありがとうございました．

評価：良い
サンプルコードがのっていてわかりやすい

確かにこれではだめですね。修正します。

許可する文字を追加する場合、

If e.KeyChar < "0"c Or e.KeyChar > "9"c Or e.KeyChar <> vbBack Then

となっていますが

If (.KeyChar < "0"c Or .KeyChar > "9"c) And Not .KeyChar = vbBack Then

ではないでしょうか？