UserControl Textbox

• Download Textbox - 41.48 KB

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