VALIDER PLUSIEUR TEXTBOX D'UN COUP

- - Dernière réponse : cs_Mémère
Messages postés
223
Date d'inscription
samedi 24 mars 2001
Statut
Modérateur
Dernière intervention
24 juin 2007
- 9 juin 2003 à 14:47
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/547-valider-plusieur-textbox-d-un-coup

Afficher la suite 
cs_Mémère
Messages postés
223
Date d'inscription
samedi 24 mars 2001
Statut
Modérateur
Dernière intervention
24 juin 2007
-
Je reve. Ca C du grand art. Trop balaise. Y a qqun pour m'expliquer comment ça marche?
-
HAHAHAHAHAHAHAHA.... Hum
Excusez moi...
-
WOw !! putin comment ta fait ça !! ça te dit de recréer windows avec moi ??
Une facon elegante de faire ceci:

Va dans Proprietes pour chacun des textboxes

dans la propriete Tag pour chacun d'entre eux ajoute le texte correspondant contre lequel il faut valider
ex: "vbfrance.com"
"www.vbfrance.com"
"http://www.vbfrance.com"
etc...

Maintenant
on peut ajouter ceci:
dim li_NumberOfControls as integer
dim i as integer
dim ls_tag as string
etc..

li_NumberOfControls = Arg_Form.Controls.Count

For i = 0 To li_NumberOfControls - 1

ls_tag = form1.controls(i).tag
if len(form1.controls(i).tag) > 0 then
'On peut utiliser l'existence de quelquechose ici pour indiquer qu'on doit valider ce controle

If TypeOf Form1.Controls(i) Is TextBox then
if form1.controls(i).text <>ls_Tag then
msgbox "Nous avons un probleme"
else
'Ignore and procede
end if
end if


Pourquoi cette methode un petit plus compliquee apparemment?

Pensez-y? Il y a tant d'autres moyens comment on peu utiliser cette idee....

Pour de plus amples details
on peut e-mail me directly....

Il se peut qu'il y ait de petites erreurs de syntaxes parce que je m'empresse...

mais ca marche...

merci bien a tous
si si sa marche
il suffit de mettre tout les "end if"
a la fin.