que quiero saber es como puedo validar un textbox que reciba un mail,
pero que el "@" (arroba) no este al comienzo y que despues del arroba
puedan existir hasta 3 puntos "."
Se que debo utilizar InStr para ver las posiciones pero no me funciona
cuando le coloco un errorprovider. Hasta aqui esto es lo que he
avanzado:
Private Sub txtMail_Validating(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles txtMail.Validating
Dim micaja As TextBox
Dim cadena As String
micaja = CType(sender, TextBox)
cadena = Val(micaja.Text)
If InStr(cadena, "@") = 1 And InStr(cadena, ".") <
InStr(cadena, "@") Then
ErrorProvider1.SetError(micaja, "Escriba correctamente su
direccion de mail")
e.Cancel = True
Else
ErrorProvider1.SetError(micaja, "")
End If
End Sub
