VB2010入力制御について

質問

・計算機アプリケーションです
・テキストボックスは数値と「-（マイナス）」「.（小数点）」以外は入力できないように制御しています。
・テキストボックス１と２に入力したものをボタン１を押して計算し、ラベル２に表示します。

テキストボックスに数値以外が、もしくは「3-2」「.32」「32.」等の不正な値が入った場合に、メッセージボックスを出して入力の誤りを指摘するプログラムを書きたいです。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

・・・・・・・・・・・・・・・・・・・・・・・・・・・・

If Not IsNumeric(TextBox1.Text) Then
MsgBox("不正な値です", vbExclamation, "ERROR")
Label2.Text = "ERROR"
ElseIf Not IsNumeric(TextBox2.Text) Then
MsgBox("不正な値です", vbExclamation, "ERROR")
Label2.Text = "ERROR"
End If

End Sub

色々と調べてみて、IsNumericが使えそうだったのでこのプログラムを書いたのですが、
これだと「-」や「.」だけを書いた場合にはちゃんとエラーメッセージが出ますが、
「32-」「.32」「32.」等は数字だけを認識して、計算結果を表示してしまいます。

何が足りないのか、もしくは使用している関数を変えたほうがいいのか、アドバイスいただければ幸いです。
以上、ご回答宜しくお願い致します。

回答No.2

jcctaira · ベストアンサー

despite0614様
はじめまして。

やはり細かく文字をチェックするのは正規表現が良いと思います。

If Not (System.Text.RegularExpressions.Regex.IsMatch _
　　　　　(TextBox1.Text, "^[-+]?[0-9]+(\.[0-9]+$|$)")) Then
　　MsgBox("不正な値です", vbExclamation, "ERROR")
End If

または

If Not (System.Text.RegularExpressions.Regex.IsMatch _
　　　　　(TextBox1.Text, "^[-+]?\d+(\.\d+$|$)")) Then
　　MsgBox("不正な値です", vbExclamation, "ERROR")
End If

文字のチェック内容を簡単に説明すると
・先頭は(+ または -) が「あるか」または「ないか」
・次は必ず数字が１文字以上ある
・その後は
　小数点があれば必ず１文字以上の数字がある　または
　何もない（文字が終わり）

正規表現を勉強すれば、入力文字を簡単に細かくチェックできます。

お礼

ご丁寧なご回答、感謝致します。
コピペしたら正常に動作しました。が、その意味についてはまだ理解していないので、これから「正規表現」について勉強したいと思います。

ありがとうございました。

回答No.1

usami33

InStr 関数で何文字目に記号があるか確認されてはいかがでしょうか？

大幅な改良をするのでしたら、
KeyPressを使用するのもおすすめかな