Imports System.Text.RegularExpressions
Public Class Validation
Private Sub Validation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DateTimePicker1.MaxDate = Today
End Sub
Private Sub txtName_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtName.KeyPress
If e.KeyChar >= "a" And e.KeyChar <= "z" Or e.KeyChar >= "A" And e.KeyChar <= "Z" Or e.KeyChar = " " Or e.KeyChar = Convert.ToChar(Keys.Back) Then
'nothing to do valid character
Else
e.KeyChar = ""
txtName.Select()
MsgBox("Enter only Alphabets", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Invalid Input")
End If
End Sub
Private Sub txtMobile_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtMobile.KeyPress
If e.KeyChar >= "0" And e.KeyChar <= "9" Or e.KeyChar = Convert.ToChar(Keys.Back) Then
Else
e.KeyChar = ""
txtMobile.Select()
MsgBox("Enter only Numbers", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Invalid Input")
End If
End Sub
Private Sub txtMobile_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtMobile.Leave
Try
If txtMobile.Text.Substring(0, 1) >= 7 And txtMobile.Text.Length = 10 Then
Else
txtMobile.Select()
MsgBox("Enter valid mobile", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Invalid Input")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub txtemail_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtemail.Leave
Dim f As Boolean
f = Module1.validateEmail(txtemail.Text)
If f = False Then
MsgBox("Enter valid Email", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Invalid Input")
txtemail.Select()
End If
End Sub
Public Function validateEmail(ByVal emailAddress) As Boolean
' Dim email As New Regex("^(?
[^@]+)@(?.+)$")
Dim email As New Regex("([\w-+]+(?:\.[\w-+]+)*@(?:[\w-]+\.)+[a-zA-Z]{2,7})")
If email.IsMatch(emailAddress) Then
Return True
Else
Return False
End If
End Function
End Class
