19/12/2008, 12:34
|
 | | | Fecha de Ingreso: septiembre-2008
Mensajes: 59
Antigüedad: 16 años, 4 meses Puntos: 0 | |
| Respuesta: Comprobación campo correo
yo tengo este ejemplo mira
Private Shared Function validarmail(ByVal mail As String) As Boolean
Return Regex.IsMatch(mail, "^([\w-]+\.)*?[\w-]+@[\w-]+\.([\w-]+\.)*?[\w]+$")
End Function
y en otro metodo
Private Sub valida()
Dim mail As String
mail = txtMail.Text
If Len(mail) > 0 Then
MsgBox(validarmail(mail), MsgBoxStyle.MsgBoxRight, "TU MAIL ES:")
End If
ENDSUB |