[VB .NET] Regex controle voor mailadres (Opgelost)

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

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

Const pattern As String = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
    Dim theRegEx As New System.Text.RegularExpressions.Regex(pattern, _
System.Text.RegularExpressions.RegexOptions.Compiled)




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As String = TextBox1.Text
        If theRegEx.IsMatch(x) Then

            Label1.Text = "Valid email"

        Else

            Label1.Text = "Bad email address"

        End If
    End Sub

Const pattern As String = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
    Dim theRegEx As New System.Text.RegularExpressions.Regex(pattern, _
System.Text.RegularExpressions.RegexOptions.Compiled)
 
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As String = TextBox1.Text
        If theRegEx.IsMatch(x) Then
 
            Label1.Text = "Valid email"
 
        Else
 
            Label1.Text = "Bad email address"
 
        End If
    End Sub

Dim re As New Regex("^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,6})+$", RegexOptions.IgnoreCase)
If re.IsMatch(txtToValidate.Text) Then
' ok
Else
' niet ok
End If

Dim re As New Regex("^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,6})+$", RegexOptions.IgnoreCase)
If re.IsMatch(txtToValidate.Text) Then
' ok
Else
' niet ok
End If

"^([0-9a-zA-Z]([-.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$"

"^([0-9a-zA-Z]([-.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$"