/ Snippet Library - View Code

Visual Basic / Text / numbers only

Snippet details

ID: 465

Viewed: 1344

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

have the user enter numbers only in text box

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllPrivate Sub Text1_KeyPress(KeyAscii As Integer) If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 End If End Sub 'or Private Sub Text1_KeyPress(KeyAscii As Integer) If keyascii = 8 Then Exit Sub If keyascii < 48 And keyascii > 57 Then keyascii = 0 Beep End If End sub

No Reviews to show