VALIDER PLUSIEUR TEXTBOX D'UN COUP

Signaler
-
cs_Mémère
Messages postés
223
Date d'inscription
samedi 24 mars 2001
Statut
Modérateur
Dernière intervention
24 juin 2007
-
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

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