It validates the entries of a textbox while it is being entered, and allows only one instance of the decimal point(period) to be entered. Please vote and leave a comment so that at least i know im doing something right. =)
code: Can't Copy and Paste this? Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
//**************************************
// Name: Accept numeric values only in a textbox
// Description:It validates the entries of a textbox while it is being entered, and allows only one instance of the decimal point(period) to be entered. Please vote and leave a comment so that at least i know im doing something right. =)
// By: Tristan B. Astillero
//
// Inputs:It has 2 parameters: e.keychar(eventargs) and the textbox control.
//
// Returns:Returns a boolean value indicating if the event is handled or not.
//
// Assumes:If you have any suggestions or encounter an error I would appreciate your comments. Thanks. I it's simple but hopefully this will garner me some votes. =P
//
// Side Effects:None to my knowledge(so far).
//
//This code is copyrighted and has// limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=932&lngWId=10//for details.//**************************************
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
e.Handled = NumbersOnly(e.KeyChar, TextBox1)
End Sub
Private Function NumbersOnly(ByVal pstrChar As Char, ByVal oTextBox As TextBox) As Boolean
'validate the entry for a textbox limiting it to only numeric values and the decimal point
If (Convert.ToString(pstrChar) = "." And InStr(oTextBox.Text, ".")) Then Return True 'accept only one instance of the decimal point
If Convert.ToString(pstrChar) <> "." And pstrChar <> vbBack Then
Return IIf(IsNumeric(pstrChar), False, True) 'check if numeric is returned
End If
Return False 'for backspace
End Function
This code isn't anything new. Its documented in a few VB.NET Books. However, this code isn't in a user control, whereas the code in the books is. (If this comment was disrespectful, please report it.)
7/29/2003 9:25:49 PM:
KeyPress doesn't stop a user from pasting an invalid value into the textbox! (If this comment was disrespectful, please report it.)
8/7/2003 9:19:11 AM:
Tks it helped me ! =) (If this comment was disrespectful, please report it.)
tnx for ur feedback every1. to answer some of the posts, this code was done by a beginner in .net, i didn't know they had it in books. it works only when typing in the values, NOT pasting it in. i'd only realized that i cn use it in a control after i'd finished d proj(meaning, rush project). i tried indenting d code but it still came out like that. (If this comment was disrespectful, please report it.)
How about making this code culturally aware by using the current Number Decimal Separator, instead of hard coding it? (see System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator) or at least make the (If this comment was disrespectful, please report it.)
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar = "." Then Dim r = TextBox1.Text.IndexOf(".") If r > 0 Then e.KeyChar = "" Else e.KeyChar = "." End If ElseIf IsNumeric(e.KeyChar) = False Then e.KeyChar = "" End If End Sub
another version... good beginner code. everybody that is leaving BS comments, realize this is a website where a lot of beginners go to learn 'basic' programming. If you have a better way, show it.. commenting saying there is a better way with out showing anything doesnt help any body (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 21 Users
1/31/2003 1:03:38 PM: 
