If Not validatePhone(txtContactNumber.Text) Or Not validateEmail(txtEmail.Text) Then ..... EndIf
'Validate contact number. Public Function validatePhone(ByVal strContactNum As String) As Boolean 'validate contactNumber Dim numberPattern As String = "^\d{1,5}-\d{4,10}$" 'Regex expression pattern Dim rxPhone As New Regex(numberPattern) 'Regex Object Dim phoneValid As Boolean 'If true contact number is valid If Not String.IsNullOrEmpty(strContactNum) Then phoneValid = rxPhone.IsMatch(strContactNum) 'Check validity Else phoneValid = False 'Not valid contact number or txtContactNumber is empty End If Return phoneValid End Function 'Validate email. Public Function validateEmail(ByVal strEmail As String) As Boolean 'validate email Dim emailPattern As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$" 'Regex expression pattern Dim rxEmail As New Regex(emailPattern) 'Regex Object Dim emailValid As Boolean 'If true email is valid If Not String.IsNullOrEmpty(strEmail) Then emailValid = rxEmail.IsMatch(strEmail) 'Check validity Else emailValid = False 'Not valid email or txtEmail is empty End If Return emailValid End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)