Bonjour à tous,

Ce post est mon premier message et sans doute pas le dernier, malheureusement

Voilà ce qui m'amène :
Depuis 2 ans, je tente de créer avec un ami informaticien un site de e-commerce . Je m'occupe du contenu et des fonctionalités à mettre en place, lui du développement du code en asp.vb

Fortement pris par son travail, il m'a récemment indiqué qu'il ne pouvait plus m'aider, alors même que nous étions dans les dernières lignes droites...

Je reprends donc seul les commandes de ce site mais je n'y connais quasiment rien (sauf du HTML et autre CSS). J'apprends donc mais je suis loin de tout comprendre et de développer comme lui.

Je bloque pour le moment sur la vérification de la forme d'une adresse email dans un formulaire :

Dans ma page formulaire.aspx, j'ai mis une textbox "tb_email" que je contrôle sur ma VB comme ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 If tbemail.Text = "" Then
            pnlErr.Visible = True
            lblErrMess.Text = "Veuillez renseigner votre adresse email"
            tbemail.Focus()
            tbemail.BackColor = Color.LightGray
            Exit Sub
        End If
Je souhaiterai mettre un contrôle plus poussé comme celui que je viens de découvrir ci-dessous :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 VB.NET 1.x , VB 2005 
Date ajout : 25/03/2006 
Posté par Willi [Liste]
DateMAJ : 12/09/2006 
 
Utilisation:
If EmailValide("toto@fai.fr") Then
     MessageBox.Show("Adresse valide")
Else
     MessageBox.Show("Adresse invalide")
End if
 
--------------------------------------------------------------------------------
 Private function EmailValide(ByVal mail_address As String) As Boolean
     Dim rexp as new Regex("^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$", RegexOptions.IgnoreCase)
     Return rexp.IsMatch(mail_address)
End Function
Malheureusement je ne sais pas comment l'insérer sur mes pages.
Merci pour votre aide et vos remarques