Visual Basic.NET 7.x (2002/03)Visual Basic 9 (2008)Visual Basic 8 (2005)Visual Basic 6Advanced.NET 2.0BeginnerIntermediate.NETVisual Basic
UserControl Textbox





2.00/5 (2 votes)
windows Textbox UserControl for only numeric, only alphbates, alphanumeric
Introduction
This is a reusable Custom Textbox control which will give you provision to enter only numeric values, only alphabetics and alphaNumeric values
Background
Public Class MyTextbox Enum opts numeric = 0 charectors = 1 both = 2 End Enum Dim opt1 As opts Public Property options() As opts Get Return opt1 End Get Set(ByVal value As opts) opt1 = value End Set End Property Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Select Case opt1 Case opts.numeric If Char.IsDigit(e.KeyChar) = False Then e.Handled = True End If Case opts.charectors If Char.IsLetter(e.KeyChar) = False Then e.Handled = True End If Case opts.both If Char.IsLetterOrDigit(e.KeyChar) = False Then e.Handled = True End If End Select End Sub End Class
Points of Interest
.Net Windows Forms Textbox UserDefined Control
About the Author
Name:M.NareshKumar
Occupation:Senior Software Engineer
Company:Atherstone Consulting Limited.
Location:Hyderabad, India