Vérifier que la textbox possède un @

Signaler
-
Messages postés
14669
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
5 juin 2020
-
Bonjour,
Comment faire pour que si la textbox1 ne possède pas de "@" une msgbox s'ouvre ?
ex: If textbox1.text.contient "@" then
[...]
Else
msgbox("blablabla")

Merci

3 réponses

Messages postés
14669
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
5 juin 2020
143
En quelle version de VB ?
Tu n'as pas précisé.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
225
Bonjour,
Si VB6 ou VBA, intéresse-toi à la fonction Instr (dans l'aide VB6 ou VBA)
Messages postés
79
Date d'inscription
mercredi 14 avril 2010
Statut
Membre
Dernière intervention
2 août 2014

La fonction instr te renvoie la position du 1er caractère "choisi" dans une zone.
Donc si la position est zéro, c'est qu'il n'y en n'a pas, sinon c'est qu'il y en a au moins 1)
J'ai donc écrit une petite fonction que tu trouveras ci_dessous.
Pour la tester, il faut bien sûr l'appeler en lui fournissant la valeur de ta zone (ici celle de ta text box je crois)

'test existence arobases dans une zone
Public Function dbcararobase(varzone) As Integer
dbcararobase = 0
dbcararobase = InStr(1, varzone, Chr$(64))
MsgBox ("dbcararobase " & dbcararobase)
End Function

Messages postés
14669
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
5 juin 2020
143
C'est valable avec VB6, mais pas avec .NET, comme le demandeur n'a pas précisé le langage, on ne peux pas répondre au mieux.