TextBox validation: validate in KeyPressed Event : Regular Expressions « Development « VB.Net

Home
VB.Net
1.2D
2.Application
3.Class
4.Data Structure
5.Data Types
6.Database ADO.net
7.Development
8.Event
9.File Directory
10.Generics
11.GUI
12.Language Basics
13.LINQ
14.Network Remote
15.Security
16.Thread
17.Windows Presentation Foundation
18.Windows System
19.XML
20.XML LINQ
VB.Net Tutorial
VB.Net by API
VB.Net » Development » Regular ExpressionsScreenshots 
TextBox validation: validate in KeyPressed Event
TextBox validation: validate in KeyPressed Event
   
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 NothingThen
                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(88)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(368124)
        Me.GroupBox1.TabIndex = 11
        Me.GroupBox1.TabStop = False
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(1652)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(6416)
        Me.Label2.TabIndex = 8
        Me.Label2.Text = "Last Name:"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(1628)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(6416)
        Me.Label1.TabIndex = 7
        Me.Label1.Text = "First Name:"
        '
        'txtFirstName
        '
        Me.txtFirstName.Location = New System.Drawing.Point(8424)
        Me.txtFirstName.Name = "txtFirstName"
        Me.txtFirstName.Size = New System.Drawing.Size(15221)
        Me.txtFirstName.TabIndex = 4
        Me.txtFirstName.Text = ""
        '
        'txtLastName
        '
        Me.txtLastName.Location = New System.Drawing.Point(8448)
        Me.txtLastName.Name = "txtLastName"
        Me.txtLastName.Size = New System.Drawing.Size(15221)
        Me.txtLastName.TabIndex = 5
        Me.txtLastName.Text = ""
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(152204)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(7624)
        Me.Button1.TabIndex = 10
        Me.Button1.Text = "OK"
        '
        'txtEmail
        '
        Me.txtEmail.Location = New System.Drawing.Point(8484)
        Me.txtEmail.Name = "txtEmail"
        Me.txtEmail.Size = New System.Drawing.Size(15221)
        Me.txtEmail.TabIndex = 9
        Me.txtEmail.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(1688)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(6416)
        Me.Label3.TabIndex = 10
        Me.Label3.Text = "Email:"
        '
        'ErrorProviderValidation
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(514)
        Me.ClientSize = New System.Drawing.Size(388238)
        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.KeyPressEventArgsHandles txtEmail.KeyPress
        Dim Expression As New System.Text.RegularExpressions.Regex("\S+@\S+\.\S+")
        If Expression.IsMatch(CType(sender, TextBox).TextThen
            errProvider.SetError(sender, "")
        Else
            errProvider.SetError(sender, "Not a valid email.")
        End If

    End Sub
End Class


           
         
    
    
  
Related examples in the same category
1.Use Regular Expression to Validate Email addressUse Regular Expression to Validate Email address
2.Validate TextBox: cannot be empty
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
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.