Lanzo
-
26 avril 2014 à 15:55
NHenry
Messages postés15112Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention13 avril 2024
-
26 avril 2014 à 22:36
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")
damedom41
Messages postés79Date d'inscriptionmercredi 14 avril 2010StatutMembreDernière intervention 2 août 2014 26 avril 2014 à 18:58
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
NHenry
Messages postés15112Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention13 avril 2024159 26 avril 2014 à 22:36
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.