VALIDAR EMAIL NUMA TEXTBOX
Oi pessoal
Como faço para validar um email numa text box?
Se eu carregar seguinte e o email nao for da forma com @ e ponto qualquer coisa, nao deixa prosseguir :D
Grande abraço
Como faço para validar um email numa text box?
Se eu carregar seguinte e o email nao for da forma com @ e ponto qualquer coisa, nao deixa prosseguir :D
Grande abraço
Ja achei uma solução, partilho com todos voces, se precisarem.
Dim rex As Match = Regex.Match(Trim(TXT_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
TXT_Email.BackColor = Color.LightYellow
Exit Sub
Else
TXT_Email.BackColor = Color.White
End If
Dim rex As Match = Regex.Match(Trim(TXT_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
TXT_Email.BackColor = Color.LightYellow
Exit Sub
Else
TXT_Email.BackColor = Color.White
End If
Tópico encerrado , respostas não são mais permitidas