入力値が小数なら、整数部・小数部の桁チェックをしたい。

質問

VB2005環境です。

テキストボックスに数値が入力された時、整数部分が4桁以上か、
小数部分が2桁以上になっている場合、警告メッセージを出したいと
考えています。
具体的には、
0.1→OK
99.9→OK
100.1→OK
0.01→NG
1001.9→NG
0.99→NG
1111→NG

テキストボックスは数字以外の入力も許可しており、数字を
入力した場合だけのチェックです。
まずIsNumericで数値判定を行っているのですが、その後、上述の
小数桁チェックをどうしたら良いか悩んでいます。

また、99を入力した場合は99.0、09.1と入力した場合には9.1と、
整数部は一番左側に0があれば消し、小数部は未入力ならば".0"を
追加できたらと思っているのですが、うまくいきません。

実現するために必要な処理は、
・入力値が数値か
・数値であれば、整数か、小数か
・整数部の桁チェック
・小数部の桁チェック（小数時）
・整数であれば、999.9の形になるよう変換
といったところかなと思うんですが、まず小数チェックで
躓いています。

参考にロジックを交えて教えていただけないでしょうか。
宜しくお願いします。

回答No.1

AlexSuns · ベストアンサー

サンプルを下記に

Dim num As Double = 0

''数値確認
If (Double.TryParse(Me.テキストボックス.Text, num)) Then

　　''桁数確認、小数点以下確認(小数点１桁まで有効)
　　If (num.ToString("000.0").Length = 5) AndAlso (num * 10 Mod 1 = 0) Then
　　　　MessageBox.Show(num.ToString("#0.0"))
　　Else
　　　　MessageBox.Show("桁数が不正です")
　　End If

Else
　　MessageBox.Show("数値ではありません")
End If

お礼

数値確認はIsNumericでいいんじゃないかなと思っていたのですが、
全角数字まで数値として見てしまうので、悩んでいました。
教えていただいたロジックを参考に、目的の動作を実現できました。

大変助かりました。
ありがとうございました。