VB.Net/Development/Regular Expressions
Содержание
- 1 Demonstrating Class Regex
- 2 Regular Expressions Match
- 3 Regular Expressions: Validate Address
- 4 Regular Expressions: Validate City
- 5 Regular Expressions: Validate Name
- 6 Regular Expressions: validate Phone Number
- 7 Regular Expressions: Validate Zip Code
- 8 Strip tags from HTML to create Text version of a web page
- 9 TextBox validation: validate in KeyPressed Event
- 10 Use Regex to match
- 11 Use Regex to separate strings
- 12 Use Regular Expressions to parse IP address
- 13 Use Regular Expressions to Split String
- 14 Use Regular Expression to Validate Email address
- 15 Use Regx.split to split string
- 16 Using Regex method Replace: ^
- 17 Using Regex method Replace: by another string
- 18 Using Regex method Replace:First 3 digits replaced
- 19 Using Regex method Replace: String split at commas
- 20 Using Regex method Replace:\w+
- 21 Validate TextBox: cannot be empty
Demonstrating Class Regex
<source lang="vbnet"> Imports System.Text.RegularExpressions Imports System Public Class MainClass
Shared Sub Main() Dim myMatch As Match " create regular expression Dim expression As Regex = _ New Regex("J.*\d[0-35-9]-\d\d-\d\d") Dim string1 As String = "05-12-75" & _ vbCrLf & "11-04-68" & vbCrLf & _ "04-28-73" & vbCrLf & _ "12-17-77" " match regular expression to string and " print out all matches For Each myMatch In expression.Matches(string1) Console.WriteLine( myMatch.ToString() ) Next End Sub " Main
End Class
</source>
Regular Expressions Match
<source lang="vbnet"> Imports System Imports System.Text.RegularExpressions Public Class MainClass
Shared Sub Main() Dim pattern As String = "g" Dim AString As String = "a string" Dim reg_exp As New Regex(pattern) Dim matches As MatchCollection matches = reg_exp.Matches(AString) Console.WriteLine(AString) For Each a_match As Match In matches Console.WriteLine("Index " & a_match.Index) Console.WriteLine("Length " & a_match.Length) Next a_match End Sub
End Class
</source>
Regular Expressions: Validate Address
<source lang="vbnet"> Imports System.Text.RegularExpressions Imports System Public Class MainClass
Shared Sub Main() If Not Regex.Match("Address", "^[0-9]+\s+([a-zA-Z]" & _ "+|[a-zA-Z]+\s[a-zA-Z]+)$").Success Then " address was incorrect Console.WriteLine("Invalid Address") End If End Sub " Main
End Class
</source>
Regular Expressions: Validate City
<source lang="vbnet"> Imports System.Text.RegularExpressions Imports System Public Class MainClass
Shared Sub Main() If Not Regex.Match("City", "^([a-zA-Z]+|[a-zA-Z]" & _ "+\s[a-zA-Z]+)$").Success Then " city was incorrect Console.WriteLine("Invalid City") End If End Sub " Main
End Class
</source>
Regular Expressions: Validate Name
<source lang="vbnet"> Imports System.Text.RegularExpressions Imports System Public Class MainClass
Shared Sub Main() If Not Regex.Match("asdfdsa", _ "^[A-Z][a-zA-Z]*$").Success Then " last name was incorrect Console.WriteLine("Invalid Last Name") End If End Sub " Main
End Class
</source>
Regular Expressions: validate Phone Number
<source lang="vbnet"> Imports System.Text.RegularExpressions Imports System Public Class MainClass
Shared Sub Main() If Not Regex.Match("111-111-1111", "^[1-9]" & _ "\d{2}-[1-9]\d{2}-\d{4}$").Success Then " phone was incorrect Console.WriteLine("Invalid Phone Number") Return End If End Sub " Main
End Class
</source>
Regular Expressions: Validate Zip Code
<source lang="vbnet"> Imports System.Text.RegularExpressions Imports System Public Class MainClass
Shared Sub Main() If Not Regex.Match("zipcode", "^\d{5}$").Success Then " zip code was incorrect Console.WriteLine("Invalid zip code") Return End If End Sub " Main
End Class
</source>
==Regular to parse time: /td>
<source lang="vbnet">
Imports System
Imports System.Text
Imports System.Text.RegularExpressions
Public Class MainClass
Shared Sub Main() Dim string1 As String = _ "04:03:27 127.0.0.0 www.vbex.ru" " time = one or more digits or colons " followed by a space " ip address = one or more digits or dots " followed by space " site = one or more characters Dim regString As String = "(?
End Class
</source>
Strip tags from HTML to create Text version of a web page
<source lang="vbnet"> Public Class MainClass
Public Shared Sub Main() System.Console.WriteLine(StripTags(GetPageHTML("http://www.g.ru/"))) End Sub Public Shared Function StripTags(ByVal HTML As String) As String Return System.Text.RegularExpressions.Regex.Replace(HTML, "<[^>]*>", "") End Function Public Shared Function GetPageHTML(ByVal URL As String) As String Dim objWC As New System.Net.WebClient() Return New System.Text.UTF8Encoding().GetString(objWC.DownloadData(URL)) End Function
End Class
</source>
TextBox validation: validate in KeyPressed Event
<source lang="vbnet"> 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.ruponentModel.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
</source>
Use Regex to match
<source lang="vbnet"> Imports System Imports System.Text Imports System.Text.RegularExpressions
Public Class MainClass
Shared Sub Main() Dim string1 As String = "This is a test string" Dim theReg As New Regex("(\S+)\s") Dim theMatches As MatchCollection = theReg.Matches(string1) Dim theMatch As Match For Each theMatch In theMatches Console.WriteLine("theMatch.Length: {0}", _ theMatch.Length) If theMatch.Length <> 0 Then Console.WriteLine("theMatch: {0}", _ theMatch.ToString( )) End If Next theMatch End Sub
End Class
</source>
Use Regex to separate strings
<source lang="vbnet"> Imports System Imports System.Text Imports System.Text.RegularExpressions
Public Class MainClass
Shared Sub Main() Dim s1 As String = "One,Two,Three" Dim theRegex As New Regex(" |, |,") Dim sBuilder As New StringBuilder( ) Dim id As Integer = 1 Dim subString As String For Each subString In theRegex.Split(s1) id = id + 1 sBuilder.AppendFormat("{0}: {1}" _ & Environment.NewLine, id, subString) Next subString Console.WriteLine("{0}", sBuilder.ToString( )) End Sub
End Class
</source>
Use Regular Expressions to parse IP address
<source lang="vbnet"> Imports System Imports System.Text Imports System.Text.RegularExpressions
Public Class MainClass
Shared Sub Main() Dim string1 As String = _ "04:03:27 127.0.0.0 www.vbex.ru" " time = one or more digits or colons " followed by a space " ip address = one or more digits or dots " followed by space " site = one or more characters Dim regString As String = "(?<time>(\d|\:)+)\s" & _ "(?<ip>(\d|\.)+)\s" & _ "(?<site>\S+)" Dim theReg As New Regex(regString) Dim theMatches As MatchCollection = theReg.Matches(string1) Dim theMatch As Match For Each theMatch In theMatches If theMatch.Length <> 0 Then Console.WriteLine( _ "theMatch: {0}", _ theMatch.ToString( )) Console.WriteLine( _ "time: {0}", _ theMatch.Groups("time")) Console.WriteLine( _ "ip: {0}", _ theMatch.Groups("ip")) Console.WriteLine( _ "site: {0}", _ theMatch.Groups("site")) End If Next theMatch End Sub
End Class
</source>
Use Regular Expressions to Split String
<source lang="vbnet"> Imports System Imports System.Text Imports System.Text.RegularExpressions Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim s1 As String = "One,Two,Three" Dim theRegex As New Regex(" |, |,") Dim sBuilder As New StringBuilder( ) Dim id As Integer = 1 Dim subString As String For Each subString In theRegex.Split(s1) id = id + 1 sBuilder.AppendFormat("{0}: {1}" _ & Environment.NewLine, id, subString) Next subString Console.WriteLine("{0}", sBuilder) End Sub
End Class
</source>
Use Regular Expression to Validate Email address
<source lang="vbnet"> 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.ruponentModel.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
</source>
Use Regx.split to split string
<source lang="vbnet"> Imports System Imports System.Text Imports System.Text.RegularExpressions
Public Class MainClass
Shared Sub Main() Dim s1 As String = "One,Two,Three" Dim sBuilder As New StringBuilder( ) Dim id As Integer = 1 Dim subString As String For Each subString In Regex.Split(s1, " |, |,") id = id + 1 sBuilder.AppendFormat("{0}: {1}" _ & Environment.NewLine, id, subString) Next subString Console.WriteLine("{0}", sBuilder.ToString( )) End Sub
End Class
</source>
Using Regex method Replace: ^
<source lang="vbnet"> Imports System.Text.RegularExpressions Imports System Public Class MainClass
Shared Sub Main() Dim testString1 As String = "This sentence ends in 5 stars *****" Dim testString2 As String = "1, 2, 3, 4, 5, 6, 7, 8" Dim testRegex1 As Regex = New Regex("stars") Dim testRegex2 As Regex = New Regex("\d") Console.WriteLine("Original String 1" & vbTab & _ vbTab & vbTab & testString1) testString1 = Regex.Replace(testString1, "\*", "^") Console.WriteLine("^ substituted for *" & vbTab & _ vbTab & vbTab & testString1) End Sub " Main
End Class
</source>
Using Regex method Replace: by another string
<source lang="vbnet"> Imports System.Text.RegularExpressions Imports System Public Class MainClass
Shared Sub Main() Dim testString1 As String = "This sentence ends in 5 stars *****" Dim testString2 As String = "1, 2, 3, 4, 5, 6, 7, 8" Dim testRegex1 As Regex = New Regex("stars") Dim testRegex2 As Regex = New Regex("\d") Console.WriteLine("Original String 1" & vbTab & _ vbTab & vbTab & testString1) testString1 = testRegex1.Replace(testString1, "carets") Console.WriteLine("""carets"" substituted for " & _ """stars""" & vbTab & testString1) End Sub " Main
End Class
</source>
Using Regex method Replace:First 3 digits replaced
<source lang="vbnet"> Imports System.Text.RegularExpressions Imports System Public Class MainClass
Shared Sub Main() Dim testString1 As String = "This sentence ends in 5 stars *****" Dim testString2 As String = "1, 2, 3, 4, 5, 6, 7, 8" Dim testRegex1 As Regex = New Regex("stars") Dim testRegex2 As Regex = New Regex("\d") Console.WriteLine("Original String 2" & _ vbTab & vbTab & vbTab & testString2) Console.WriteLine("First 3 digits replaced by " & _ """digit""" & vbTab & _ testRegex2.Replace(testString2, "digit", 3)) End Sub " Main
End Class
</source>
Using Regex method Replace: String split at commas
<source lang="vbnet"> Imports System.Text.RegularExpressions Imports System Public Class MainClass
Shared Sub Main() Dim testString1 As String = "This sentence ends in 5 stars *****" Dim testString2 As String = "1, 2, 3, 4, 5, 6, 7, 8" Dim testRegex1 As Regex = New Regex("stars") Dim testRegex2 As Regex = New Regex("\d") Dim resultString As String Console.WriteLine("String split at commas" & vbTab & _ vbTab & "[") For Each resultString In Regex.Split(testString2, ",\s*") Console.WriteLine("""" & resultString & """, ") Next End Sub " Main
End Class
</source>
Using Regex method Replace:\w+
<source lang="vbnet"> Imports System.Text.RegularExpressions Imports System Public Class MainClass
Shared Sub Main() Dim testString1 As String = "This sentence ends in 5 stars *****" Dim testString2 As String = "1, 2, 3, 4, 5, 6, 7, 8" Dim testRegex1 As Regex = New Regex("stars") Dim testRegex2 As Regex = New Regex("\d") Console.WriteLine("Original String 1" & vbTab & _ vbTab & vbTab & testString1) Console.WriteLine("Every word replaced by " & _ """word""" & vbTab & _ Regex.Replace(testString1, "\w+", "word")) End Sub " Main
End Class
</source>
Validate TextBox: cannot be empty
<source lang="vbnet"> 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.ruponentModel.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 Button1 As System.Windows.Forms.Button Friend WithEvents txtLastName As System.Windows.Forms.TextBox Friend WithEvents txtFirstName As System.Windows.Forms.TextBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.Button1 = New System.Windows.Forms.Button() Me.txtLastName = New System.Windows.Forms.TextBox() Me.txtFirstName = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1.SuspendLayout() Me.SuspendLayout() " "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 = 6 Me.Button1.Text = "OK" " "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 = "" " "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 = "" " "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:" " "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:" " "GroupBox1 " Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {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, 88) Me.GroupBox1.TabIndex = 9 Me.GroupBox1.TabStop = False " "SimpleValidation " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14) Me.CausesValidation = False Me.ClientSize = New System.Drawing.Size(384, 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 = "SimpleValidation" Me.Text = "SimpleValidation" Me.GroupBox1.ResumeLayout(False) Me.ResumeLayout(False) End Sub
- End Region
Private Sub txtName_Validating(ByVal sender As Object, ByVal e As System.ruponentModel.CancelEventArgs) Handles txtFirstName.Validating, txtLastName.Validating If CType(sender, TextBox).Text = "" Then MessageBox.Show("You have to type something.", "Invalid Input", MessageBoxButtons.OK, MessageBoxIcon.Warning) e.Cancel = True End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub
End Class
</source>