Try, Catch についての質問

質問

すみません！！VB超初心者です。

PriceとCostのテキストボックスにマイナスやアルファベットを記入して計算ボタンを押した場合、Errorを示すメッセージボックスを出したいのです。

ところが、このプログラムだとちゃんと正の数字を入れた場合でもエラーのメッセージボックスがでてしまいます・・・。これはなぜなのでしょうか？よろしくお願いします！

Dim priceDecimal, costDecimal, answerDecimal As Decimal

Try
priceDecimal = Decimal.Parse(txtprice.Text)
costDecimal = Decimal.Parse(txtcost.Text)
answerDecimal = Decimal.Parse(lblcomission.Text)

Try
txtprice.Text = priceDecimal < 0
txtcost.Text = costDecimal < 0

Catch priceException As FormatException

MessageBox.Show("You have entered Invalid Data.", "Error", MessageBoxIcon.Exclamation)

End Try
Catch costException As FormatException

MessageBox.Show("You have entered Invalid Data", "Error",MessageBoxButtons.OK, (MessageBoxIcon.Exclamation)

End Try
answerDecimal = Commision_rate_Decimal * (priceDecimal - costDecimal)

lblcomission.Text = answerDecimal.ToString("C")
End Sub

回答No.4

locoyama · ベストアンサー

すみません、補足です
Dim rx As New System.Text.RegularExpressions.Regex("[^0-9]", System.Text.RegularExpressions.RegexOptions.Compiled)
は、以下のコードをまとめて書いたものです
’宣言
Dim rx As System.Text.RegularExpressions.Regex
’オブジェクトの参照を変数に入れる
rx = New System.Text.RegularExpressions.Regex("[^0-9]", System.Text.RegularExpressions.RegexOptions.Compiled)

上記コードの()の中はクラスを初期化する時の引数です（必須ではありません）。
()の中に有る"[^0-9]"は、正規表現で数値の０～９以外の文字列と言う意味で、
System.Text.RegularExpressions.RegexOptions.Compiled
は、正規表現の文字列を起動時にコンパイル（起動には少し時間が掛かるが、実行時は早い）するオプション。

お礼

ありがとうございました。おかげで問題はすべて解決しました。当方、長所新車ですので、これからもなにかありましたら、皆様よろしくお願いします。