小数の入力制限

板尾 2003-04-30 08:33:22 No: 106989

小数の入力を禁止したいのですが，
どうすればよいのでしょうか？

nanashi 2003-04-30 09:43:01 No: 106990

出来ればもうちょっと具体的に質問して欲しいのですが……。
TextBoxに小数点を（数字以外の文字列を）入力できないようにしたいって事でしょうか？

とおりすがり 2003-04-30 18:22:06 No: 106991

数字以外の入力を禁止するのであれば、

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0
    End If
End Sub

でどうですか？
ただし、BackSpaceキーだけは入力できるようにしています。
「KeyAscii <> 8 And」この部分を取ってもらえば、数字のみです。

nanashi 2003-04-30 19:11:43 No: 106992

API使えばこれだけで済むよ。

Const GWL_STYLE As Long = -16&
Const ES_NUMBER As Long = &H2000&

With Text1
Call SetWindowLong(.hWnd, GWL_STYLE, GetWindowLong(.hWnd, GWL_STYLE) Or ES_NUMBER)
End With

最終的にはコピペされた時のことも考えてChangeイベントでチェックしないとダメだけどね。