Text Field, Integer only?

[JebeDiAH]

Hi there,

is there any possibility to restrict input of a text field to integers and one point only (so that you are able to display decimals e.g. 0.23).

Does someone know how to do so?

Thx
Charly

[champgary]

CHECK THE ASCII IN TEXTBOX'S CHANGE EVENT AND KEYPRESS EVENT

Private Sub txtCPin_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Then Exit Sub
    If Not (KeyAscii > 47 And KeyAscii < 58) Then     
    If Not (KeyAscii =46) Then
            KeyAscii = 0
    end if
    end if

Gary

[JohnVB6]

Or...

Private Sub Text1_Change()
  If Text1.Text = "" Then Exit Sub
  If Not IsNumeric(Text1.Text) Then
    MsgBox "Please enter a number only"
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
  End If
End Sub

[cafeenman]

or use a masked edit box if your version of VB came with it.

[MidgetsBro]

Private Sub Text1_Change()
  If Text1.Text = "" Then Exit Sub
  If Not IsNumeric(Text1.Text) Or InStr(1, Text1.Text, ".") > 0 Then
    MsgBox "Please enter an integer number only"
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
  End If
End Sub

[honeybee]

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> vbKeyBack And KeyAscii <> vbKeyReturn And KeyAscii <> vbKeyEscape Then
        If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
            If KeyAscii = Asc(".") Then
                If InStr(1, Text1.Text, ".") <> 0 Then
                    KeyAscii = 0
                End If
            Else
                KeyAscii = 0
            End If
        End If
    End If
End Sub

.