Faire réagir plusieurs textbox vb7Résolu

Question

Lut.
G un ptit soucis qui doit être tout bête à résoudre.
Sous vb7, je veux faire réagir plusieurs textbox en même temps.
Je m'explique : J'ai 20 textbox.
Je cherche une commande qui dit que if textbox1.text "" then textbox1.text "X",
if textbox2.text "" then textbox2.text "X"........ et ainsi de suite.
En fait je cherche une commande qui fait cette action quel que soit le textbox.

Y-a-t-il un petit code pour automatiser tout cela et éviter de fait, de faire une usine à gaz au lien d'un logiciel ?!!

Merci d'avance
Chris

jrivet · Accepted Answer

Re,

A quel endroit places tu le code:

Call TestTExt(TextBox1)
ou
CheckTxt(TextBox1)

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

jrivet · Answer

Salut,

VB7 ???? Savais pas qu il existait celui la.

Pourquoi ne pas creer une matrice de controle 

Ce qui te donneras un tableau de 20 Textbox et apres tu n'auras plus qu'a faire

Dim i As Integer
For i = NomTextBox.LBound To NomTextBox.UBound    If NomTextBox(i).Text "" then NomTextBox(i).text "X"
Next

Sinon tu peux faire une procedure.

Private Sub TestText(Te as TextBox)   If Te.text "" then Te.Text "X"
end sub

Et l'appeler 20 fois si tu ne veux pas de matrice de controle;

Call TestTExt(TextBox1)
Call TestTExt(TextBox2)....

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

NHenry · Answer

Bonjour

VB7 -> VB.NET

Tu peux utiliser un truc du style :

 CheckTxt(TextBox1)

 CheckTxt(TextBox2)

 CheckTxt(TextBox3)

 CheckTxt(TextBox4)

...

private Sub CheckTct(byval pTxt as TextBox)
if pTxt.Text="" then pTxt.Text="X"
End Sub

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

cs_chris_p · Answer

Lut
Merci pour vos r&#233;ponses. G t&#233;st&#233; mais cela ne marche pas. Il y a quelque chose que j'ai du mal faire.
En fait, cette v&#233;rif des textboxs doit se faire quand on clique sur un boutton de commande.

Quand je tape 
Call TestTExt(TextBox1)
ou
CheckTxt(TextBox1)
VB me souligne textbox1.
Pouvez-vous me dire o&#249; je me plante ?

Merci d'avance

Chris

jrivet · Answer

Salut,

Est ce que ton textbox s'appelle bien TextBox1?

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_chris_p · Answer

Lut,

oui, il s'appelle bien textbox1 mais peut-&#234;tre que je place le code du mauvais sens ?!

Chris

cs_chris_p · Answer

C bon &#231;a marche !!
En fait, dans ma proc&#233;dure : private Sub CheckTct(byval pTxt as TextBox), j'avais oubli&#233; le private.

Merci beaucoup.

Chris

Faire réagir plusieurs textbox vb7

7 réponses

Discussions similaires