[リストへもどる]
一括表示
投稿時間：2003/05/30(Fri) 16:37
投稿者名：ゆたか
Ｅメール：
ＵＲＬ　：
タイトル：小数点
いつもお世話になっております。
質問がありますが、あるテキストボックスに小数点と数字が入力できるようにしたいのですが、今はこのようなコードになっております。

If KeyAscii = vbKeyBack Then Exit Sub
If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And 　　KeyAscii <> 46 Then
　KeyAscii = 0
End If

ようは電卓みたいに小数点やら数字を入力したいのですが。
このままですと数字、小数点は入力できますが、おかしなことに（小数点がいくつも入ってしまう、最初から小数点”.13”みたいな）うまく処理できる方法があれば教えていただきたいと思います。
お願いします。

投稿時間：2003/05/30(Fri) 17:16
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：マルチポストにつき削除
回答しましたが、マルチポストのようですので削除します。

投稿時間：2003/05/30(Fri) 21:19
投稿者名：シャフト
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: 小数点
KeyAscii=47の時にText1.Textに"."が含まれているかInStrで確認する。
SelStartが0で"."が押された場合、先頭に0を付ける。
"."が無い時は先頭に"0"がこないようにする。

もしくは、KeyPressで入力制限、KeyUpでText1.TextをFormat$で書式化する。

くらいしか思いつきませんでした。