• Home
 · 
• String Manipulation
 · 
• 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.

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

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    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