Search Tools Links Login

Allow Numerals Only

After looking here and a few other places for a simple code that allows only numerals and not to allow text to be pasted into a textbox and with no prevail I figured it out. Not a major thing but for beginners this will help them.

Original Author: PorkNBeans


'Just Paste This in the change section of the textbox sub

Private Sub txtText1_Change()

'if an error should occur go to the error handler

On Error GoTo txtText1_Change_Err

'if the text entered is not numeric

100 If Not IsNumeric(txtText1.Text) Then

'display the message box warning

102 MsgBox "Only Numerals Are Allowed", vbOKOnly + vbExclamation, "Numerals Only"

End If

Exit Sub

'after handling the error and showing what line the error occured in if any

' then resume the next action


MsgBox Err.Description & vbCrLf & _

"in Project1.Form1.txtText1_Change " & _

"at line " & Erl

Resume Next

End Sub

you could easily have the textbox clear out by adding txt.text ="" but that is so basic I figured no need to add it.
Please if theres no code like this and it does indeed help you at least give me a vote for my time sharing this.

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 79 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.