Use Regular Expression to Validate Email address : Regular Expressions « Development « VB.Net






Use Regular Expression to Validate Email address

Use Regular Expression to Validate Email address
    
Imports System
Imports System.Drawing
Imports System.Windows.Forms


Public Class MainClass
    
    Shared Sub Main()
        Dim form1 As Form = New Form1

        Application.Run(form1)


    End Sub
End Class

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents txtFirstName As System.Windows.Forms.TextBox
    Friend WithEvents txtLastName As System.Windows.Forms.TextBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents errProvider As System.Windows.Forms.ErrorProvider
    Friend WithEvents txtEmail As System.Windows.Forms.TextBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.txtFirstName = New System.Windows.Forms.TextBox()
        Me.txtLastName = New System.Windows.Forms.TextBox()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.errProvider = New System.Windows.Forms.ErrorProvider()
        Me.txtEmail = New System.Windows.Forms.TextBox()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.GroupBox1.SuspendLayout()
        Me.SuspendLayout()
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.txtEmail, Me.Label2, Me.Label1, Me.txtFirstName, Me.txtLastName})
        Me.GroupBox1.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(368, 124)
        Me.GroupBox1.TabIndex = 11
        Me.GroupBox1.TabStop = False
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(16, 52)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 16)
        Me.Label2.TabIndex = 8
        Me.Label2.Text = "Last Name:"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(16, 28)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(64, 16)
        Me.Label1.TabIndex = 7
        Me.Label1.Text = "First Name:"
        '
        'txtFirstName
        '
        Me.txtFirstName.Location = New System.Drawing.Point(84, 24)
        Me.txtFirstName.Name = "txtFirstName"
        Me.txtFirstName.Size = New System.Drawing.Size(152, 21)
        Me.txtFirstName.TabIndex = 4
        Me.txtFirstName.Text = ""
        '
        'txtLastName
        '
        Me.txtLastName.Location = New System.Drawing.Point(84, 48)
        Me.txtLastName.Name = "txtLastName"
        Me.txtLastName.Size = New System.Drawing.Size(152, 21)
        Me.txtLastName.TabIndex = 5
        Me.txtLastName.Text = ""
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(152, 204)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(76, 24)
        Me.Button1.TabIndex = 10
        Me.Button1.Text = "OK"
        '
        'txtEmail
        '
        Me.txtEmail.Location = New System.Drawing.Point(84, 84)
        Me.txtEmail.Name = "txtEmail"
        Me.txtEmail.Size = New System.Drawing.Size(152, 21)
        Me.txtEmail.TabIndex = 9
        Me.txtEmail.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(16, 88)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(64, 16)
        Me.Label3.TabIndex = 10
        Me.Label3.Text = "Email:"
        '
        'ErrorProviderValidation
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14)
        Me.ClientSize = New System.Drawing.Size(388, 238)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1, Me.Button1})
        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Name = "ErrorProviderValidation"
        Me.Text = "ErrorProvider Validation"
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

 


    Private Sub txtEmail_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtEmail.KeyPress
        Dim Expression As New System.Text.RegularExpressions.Regex("\S+@\S+\.\S+")
        If Expression.IsMatch(CType(sender, TextBox).Text) Then
            errProvider.SetError(sender, "")
        Else
            errProvider.SetError(sender, "Not a valid email.")
        End If

    End Sub
End Class


           
         
    
    
    
  








Related examples in the same category

1.Validate TextBox: cannot be empty
2.TextBox validation: validate in KeyPressed EventTextBox validation: validate in KeyPressed Event
3.Use Regular Expressions to parse IP address
4.Use Regex to separate stringsUse Regex to separate strings
5.Use Regx.split to split stringUse Regx.split to split string
6.Use Regex to matchUse Regex to match
7.Regular to parse time: 04:03:27Regular to parse time: 04:03:27
8.Regular Expressions MatchRegular Expressions Match
9.Use Regular Expressions to Split StringUse Regular Expressions to Split String
10.Demonstrating Class Regex
11.Regular Expressions: Validate NameRegular Expressions: Validate Name
12.Regular Expressions: Validate AddressRegular Expressions: Validate Address
13.Regular Expressions: Validate City
14.Regular Expressions: Validate Zip CodeRegular Expressions: Validate Zip Code
15.Regular Expressions: validate Phone Number
16.Using Regex method Replace: ^Using Regex method Replace: ^
17.Using Regex method Replace: by another stringUsing Regex method Replace: by another string
18.Using Regex method Replace:\w+Using Regex method Replace:\w+
19.Using Regex method Replace:First 3 digits replacedUsing Regex method Replace:First 3 digits replaced
20.Using Regex method Replace: String split at commasUsing Regex method Replace: String split at commas
21.Strip tags from HTML to create Text version of a web page
22.\w matches any word character.
23.(\w) matches a word character. This is the first capturing group.
24.\1 match the value of the first capture.
25.\s matches any white-space character.
26.\b: Begin the match at a word boundary.
27.\w+: Match one or more word characters.
28.(e)*: Match an "e" either zero or one time.
29.(\s|$) Match either a whitespace character or the end of the input string.
30.^: Begin the match at the beginning of the input string.
31.\D: Match a non-digit character.
32.\d{1,5} Matches from one to five decimal digits.
33.\D* matches zero or one non-decimal character.
34.$ Matches the end of the input string.
35.\S matches any non-white-space character.
36.\b: Begin the match at a word boundary.
37.(\S+): matches one or more non-white-space characters. This is the first capturing group.
38.\s*: matches zero or one white-space character.
39.Regular expression for class and group
40.Decimal Digit Character: \d
41.Parse Link and Image tags in a HTML file
42.Parse Image tags in a HTML file
43.Regex Class represents an immutable regular expression.
44.Define a regular expression for repeated words
45.Find duplicates
46.ArgumentException Class is thrown when one of the arguments provided to a method is not valid.
47.ArgumentOutOfRangeException is thrown when the value of an argument is outside the allowable range
48.Capture Class represents the results from a single successful subexpression capture.
49.CharUnicodeInfo Class has information about a Unicode character
50.Validate email address
51.Regex.Split