Controle de saisi d'une adresse mail

Résolu
cs_Vanessa26 Messages postés 4 Date d'inscription dimanche 15 novembre 2009 Statut Membre Dernière intervention 10 décembre 2010 - 10 déc. 2010 à 18:45
Calade Messages postés 1207 Date d'inscription dimanche 20 avril 2003 Statut Membre Dernière intervention 4 juin 2016 - 11 déc. 2010 à 14:27
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

cs_subaqua Messages postés 69 Date d'inscription jeudi 22 décembre 2005 Statut Membre Dernière intervention 20 juin 2011
10 déc. 2010 à 19:35
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.
3
cs_Vanessa26 Messages postés 4 Date d'inscription dimanche 15 novembre 2009 Statut Membre Dernière intervention 10 décembre 2010
10 déc. 2010 à 20:29
Merci pour ton aide subaqua
0
Calade Messages postés 1207 Date d'inscription dimanche 20 avril 2003 Statut Membre Dernière intervention 4 juin 2016 10
11 déc. 2010 à 14:27
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
0
Rejoignez-nous