Accepting Numeric Values.

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

Rate Accepting Numeric Values.



Select Case KeyAscii
  Case 8
    Exit Sub
  Case 46
    If InStr(1, txtANum, ".") > 0 Then
      KeyAscii = 0
    Else
      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..

Accepting Numeric Values.

Accepting Numeric Values. Comments

Post your comment

Difficulty