Complete Integer Textbox In 5 Lines. More Accurate IS Numeric Function.

by Buddhika Fernando. (6 Submissions)
Category: String Manipulation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 15^th June 2006
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Complete Integer Textbox In 5 Lines. More Accurate "IS Numeric" Function.

Rate Complete Integer Textbox In 5 Lines. More Accurate IS Numeric Function.




    KeyAscii = GetIntValues(KeyAscii)
    If KeyAscii = 13 Then
        MsgBox Text1.Text
    End If
    
End Sub

Private Function GetIntValues(ByVal Key As Integer) As Long

    If Key = 0 Then Exit Function
    If Key = 46 Then Exit Function
    
    If (Key >= 48 And Key <= 57) Or (Key = 8 Or Key = 13) Then
        GetIntValues = Key
    End If
    
End Function

Download this snippet Add to My Saved Code

Complete Integer Textbox In 5 Lines. More Accurate IS Numeric Function. Comments

No comments have been posted about Complete Integer Textbox In 5 Lines. More Accurate IS Numeric Function.. Why not be the first to post a comment about Complete Integer Textbox In 5 Lines. More Accurate IS Numeric Function..

Complete Integer Textbox In 5 Lines. More Accurate IS Numeric Function.

Complete Integer Textbox In 5 Lines. More Accurate IS Numeric Function. Comments

Post your comment

Difficulty