Vincentsoft
-
2 déc. 2000 à 11:12
cs_Mémère
Messages postés222Date d'inscriptionsamedi 24 mars 2001StatutMembreDernière intervention24 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.
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...
J'ai essayé ton code et il ne marche pas. En plus, tu as oublié de mettre end if. Cependant, il y a une autre manière de valider 5 textbox:
If Text1.Text "vbfrance" And Text2.Text "vbfrance1" And Text3.Text = "vbfrance2" And Text4.Text = "vbfrance3" And Text5.Text = "vbfrance4" Then
Beep
Beep
End If
9 juin 2003 à 14:47
7 mai 2001 à 21:21
Excusez moi...
10 févr. 2001 à 01:36
8 janv. 2001 à 18:03
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
9 déc. 2000 à 15:13
il suffit de mettre tout les "end if"
a la fin.
2 déc. 2000 à 11:12
If Text1.Text "vbfrance" And Text2.Text "vbfrance1" And Text3.Text = "vbfrance2" And Text4.Text = "vbfrance3" And Text5.Text = "vbfrance4" Then
Beep
Beep
End If
Amicalement Vincentsoft