VBcoders Guest

Don't have an account yet? Register

Forgot Password?

Accepting Numeric Values.

by Sunil Kumar (2 Submissions)
Category: OLE/COM/DCOM/Active-X
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 5th February 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)

Accepting Numeric Values.

Rate Accepting Numeric Values.

Select Case KeyAscii
  Case 8
    Exit Sub
  Case 46
    If InStr(1, txtANum, ".") > 0 Then
      KeyAscii = 0
      Exit Sub
    End If
  Case Is < 48, Is > 58
    KeyAscii = 0
End Select
End Sub

Download this snippet    Add to My Saved Code

Accepting Numeric Values. Comments

No comments have been posted about Accepting Numeric Values.. Why not be the first to post a comment about Accepting Numeric Values..

Post your comment

0/1000 characters