Controle de saisi d'une adresse mail [Résolu]

Signaler
Messages postés
4
Date d'inscription
dimanche 15 novembre 2009
Statut
Membre
Dernière intervention
10 décembre 2010
-
Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
-
Bonjour,

Je suis débutante, je cherche à mettre un contrôle de saisi dans un textbox lors de la saisi d'une adresse mail. Le contrôle doit se faire sur le caractère @. Si @ n'est pas présent, un message d'erreur invite la personne à saisir de nouveau l'adresse mail.

Merci par avance à celui ou ceux qui m'apporteront de l'aide.

Cordialement

Vanessa

3 réponses

Messages postés
69
Date d'inscription
jeudi 22 décembre 2005
Statut
Membre
Dernière intervention
20 juin 2011

Il faut analyser la chaîne de caractères caractère par caractère et faire un test sur le symbole @.

Imaginons que le textbox s'appelle "mel"

Private sub detection()
dim i as integer
dim TROUVE as boolean

i=1
TROUVE=false
do while i<len(mel.text) and not TROUVE
if mid(mel.text,i,1)="@" then TROUVE=true
i=i+1
loop

if not TROUVE then msgbox "Adresse email erronée."
if TROUVE then ..... 'A toi de voir

end sub

On peut sûrement faire mieux mais ce code est assez simple et court. Donc je l'utilise assez souvent pour ce type de tâche.

Bon développement.
Messages postés
4
Date d'inscription
dimanche 15 novembre 2009
Statut
Membre
Dernière intervention
10 décembre 2010

Merci pour ton aide subaqua
Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
9
Bonjour,

Je ne connais pas .NET, mais je suis sur que l'équivalent de ce qui suit en VB6 existe.

If instr(mel,"@")>0 then ' @ trouvé


Calade