テキストボックスの処理について教えて下さい。
テキストボックスの処理について教えて下さい。
txtTanka1.Text というテキストボックスがありまして、単価を入れるところです。
単価には小数1位までのものがあります。
でも表示をそろえるために、すべて小数1位まで表示したいと思っています。
「3.0」と入力すると→表示は「3.0」
「5.5」と入力すると→表示は「5.5」
「4」と入力しても→表示は「4.0」
にしたいと思って下のコードを書きましたが、思うように動きません。
doubTanka = 0
doubTanka = CDbl(txtTanka1.Text)
txtTanka1.Text = CStr(Format(doubTanka, "#,###.#"))
どなたか、原因と対処方法を教えて下さい。
よろしくお願いします。
ちなみにWindows7とVB2008 です。