数字以外の入力をエラーにするには？

解決済

質問者：jmwp
質問日時：2009/01/06 16:27
回答数：4件

分からないのでよろしくお願いします。

テキストボックスに一つでも数字以外の文字を入力したらエラーメッセージを出すようにしたいのです。小数点も不可にしたいです。
つまり、整数だけを許可したいです。
Dim suuji As string
suuji= text1.Text
If Not IsNumeric(CStr(suuji.ToString)) Then
MsgBox("入力値が数字ではありません", MsgBoxStyle.Critical, "エラー")
Exit Sub
End If
こうしたのですが、小数点は通ってしまいます。
どうすればいいかご存知の方、教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： mindatg
回答日時：2009/01/06 16:44

' 数字か？

If IsNumeric(CStr(suuji.ToString)) Then
　' ピリオドが含まれるか？
　If InStr(suuji,".") > 0 then
　　MsgBox("入力値が数字ではありません", MsgBoxStyle.Critical, "エラー")
　End If
Exit Sub

- 3
- 件

通報する

この回答へのお礼

ありがとうございました。
こちらの方法でさせていただいたら、
今まで対処の分からなかった小数点をエラーにすることが出来ました。

通報する

お礼日時：2009/01/06 19:56

No.4

回答者： nekowokai
回答日時：2009/01/06 18:42

だぁぁ、誤字です。

方→型

自分も整数値入力の処理を考えないとな～
と、思っていたところにこの質問がありましのでちょうどいいタイミングでした。
「きっかけ」を作ってくれてありがとうございます。

- 0
- 件

通報する

この回答へのお礼

ごきっかけとなって本当に良かったです。
こちらこそ一生懸命にお答え頂き大変嬉しかったです。
どうもありがとうございました。

通報する

お礼日時：2009/01/06 20:00

No.3

回答者： nekowokai
回答日時：2009/01/06 18:32

Dim x As Boolean

If (Integer.TryParse(Me.TextBox1.Text, x)) Then
　　MessageBox.Show("Value is " + Me.TextBox1.Text)
Else
　　MessageBox.Show("Not Integer")
End If

変数の方を間違えていました。

- 0
- 件

通報する

No.2

回答者： nekowokai
回答日時：2009/01/06 18:22

Dim x As Integer

'～.TextはIntegerに変換できるか？
If (Integer.TryParse(Me.TextBox1.Text, x)) Then
　　MessageBox.Show("Integer")
Else
　　MessageBox.Show("Not Integer")
End If

このソースはインデントを表わすため全角スペースが混じっています。
あと、Ifの無駄なかっこは普段C#を使っているための癖です。

【余計なおせっかい】
IsNumericはMicrosoft.VisualBasicの名前空間に属します。
この名前空間は過去のVisual Basicとある程度の互換性を保つために用意されているので、使用するべきではない、という話を聞いたことがあります。