TextBox Digit & Decimal Limit

[str1ker]

Hi, Does anyone know how to limit a textbox to digit and decimal entry?
I really need it.
Please help!

[Banfa]

    ' Set the numeric style for the TextBox
    ' Get the current style
    Dim style As Integer = _
        GetWindowLong(TextBox.Handle, GWL_STYLE)
 
    ' Add ES_NUMBER to the style.
    SetWindowLong(TextBox.Handle, GWL_STYLE, _
        style Or ES_NUMBER)
 

Does that make sence, means nothing to me I'm a C programmer (actually that's not true because GetWindowLong and SetWindowLong are part of the sdk so I do use them but I have to trust that the syntax is correct.

[sashi]

hi guys,

the most simplest method i ever used to;

accept numeric value..

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
 

accept decimal value in textbox

Function validateNumber(txtChk As TextBox, KeyAscii As Integer) As Boolean
    validateNumber = False
 
 
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 46 And KeyAscii <> 8 Then
        KeyAscii = 0
    ElseIf KeyAscii = 46 And InStr(1, txtChk.Text, ".") <> 0 Then
        KeyAscii = 0
    ElseIf KeyAscii >= 48 And KeyAscii <= 57 Then
        lngDotPos = InStr(1, txtChk.Text, ".")
 
 
        If lngDotPos <> 0 Then
 
 
            If txtChk.SelStart >= lngDotPos Then
                txtChk.MaxLength = lngDotPos + 2
            Else
                txtChk.MaxLength = 20
            End If
        End If
        validateNumber = True
    End If
End Function
 

[str1ker]

Thanks, I'll try these!