Vb.Net Email Kontrolü ( Vb.net E-Mail Validation)

Merhaba,

 

Vb.net te textboxa girilen eposta değerinin doğru olup olmamasını aşağıdaki şekilde kontrol ettirebilrisiniz.

[code language="vb"]Public Function EmailKontrolDev(ByRef email As Textbox)
Dim rex As Match = Regex.Match(Trim(email.Text), "^([0-9a-zA-Z]([-.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,3})$", RegexOptions.IgnoreCase)
If rex.Success = False Then
XtraMessageBox.Show("Geçersiz Email adresi!!" & vbCrLf & "Email adresi deneme@deneme.com biçiminde olması gerekiyor.", _
"Bilgi", MessageBoxButtons.OK, MessageBoxIcon.Information)
email.Focus()
End If
Return email
End Function[/code]

[code language="vb"]Private Sub txtEposta_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtEposta.Validating
EmailKontrol(txtEposta)
End Sub[/code]