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