テキストボックスの処理について教えて下さい。

質問

テキストボックスの処理について教えて下さい。
txtTanka1.Text　というテキストボックスがありまして、単価を入れるところです。
単価には小数１位までのものがあります。
でも表示をそろえるために、すべて小数１位まで表示したいと思っています。
「3.0」と入力すると→表示は「3.0」
「5.5」と入力すると→表示は「5.5」
「4」と入力しても→表示は「4.0」
にしたいと思って下のコードを書きましたが、思うように動きません。

doubTanka = 0
doubTanka = CDbl(txtTanka1.Text)
txtTanka1.Text = CStr(Format(doubTanka, "#,###.#"))

どなたか、原因と対処方法を教えて下さい。
よろしくお願いします。

ちなみにWindows7とVB2008　です。

回答No.1

himajin100000 · ベストアンサー

http://ideone.com/gPgZ4

書式の意味を勘違いしているのが原因
http://msdn.microsoft.com/en-us/library/0c899ak8%28v=VS.80%29.aspx
http://en.wikipedia.org/wiki/Significant_figures

お礼

ありがとうございました。
#,###.0
でよかったんですね。