小数の入力制限

---

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

編集 削除

---

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

編集 削除

---

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

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」この部分を取ってもらえば、数字のみです。

編集 削除

---

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イベントでチェックしないとダメだけどね。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。