Générer des objets et leur attribuer des fonctions ?!

Question

Bonjour,



J'ai un petit probl&#232;me que j'aimerais bien r&#233;soudre, ou contourner si c'est possible...

Je m'explique :



Je cr&#233;e des boutons et des champs textes qui sont tous inclus dans des panels diff&#233;rents. On obtient donc des noms du style :

btnAjout1, btnAjout2, btnAjout3....

txtNb1, txtNb2, txtNb3....



J'ai fait une fonction :



    Private Sub PctPlus_EntreeSouris(ByVal sender As Object, ByVal e As EventArgs)

        'Fonction qui s'execute quand on clique sur les Plus

        sTemp =  sender.name

    End Sub



Celle-ci s'&#233;xecute lorsqu'on clique sur un bouton "Plus". Il y en a plusieurs dans la fen&#234;tres et portent les noms :  PctPlus1, PctPlus2... 



Voici l'initialisation des boutons :



                'On initialise le bouton plus

               
PctPlus.Location  = New System.Drawing.Point(8 + 140, 232 + (120 *
NbMateriel) + 25)

               
PctPlus.Size = New System.Drawing.Size(32, 32)

                PctPlus.Image = PictPlus.Image

                PctPlus.Name = "PctPlus" & sTemp

                PctPlus.Visible = True

               
AddHandler PctPlus.Click, AddressOf PctPlus_EntreeSouris



La chaine sTemp dans l'initialisation du nom des boutons contient le num&#233;ro qui suit le nom PctPlus. Et en fin d'initialisation, on appelle la fonction PctPlus_EntreeSouris qui s'&#233;xecute lorsqu'on clique sur les boutons !



Maintenant ce que je voudrais faire, c'est incr&#233;menter un champ texte qui porte le m&#234;me num&#233;ro que le bouton.

Exemple : le bouton PctPlus1 incr&#233;ment le champ texte TxtNb1, le bouton PctPlus2 incr&#233;mente le champ texte TxtNb2...



Quelqu'un aurait il une solution &#224; mon probl&#232;me ?

Si on pouvait concat&#233;ner des chaines de caract&#232;res et g&#233;rer des &#233;v&#232;nements avec cette m&#234;me chaine, ca serait facile...  Du style : "texte" & 1.click 



Merci beaucoup pour l'aide que vous pourrez m'apporter 



Marie

Starec · Answer

Va voir dans la recherche du site du cot&#233; de l'ajout dynamique de contr&#244;le, je pense que cela pourrais t'aider ,ne pas oublier la fonction with events (je crois) lors de la d&#233;claration

Starec

projetmarie · Answer

Suivant ton conseil, j'ai fait ma petite recherche sur le site et je
suis tomb&#233; sur ce cas :  http://www.vbfrance.com/code.aspx?ID=2383



La r&#233;ponse qui semble me convenir est celle-ci :

"pour les noms d'objets, je d&#233;clare un tableau dynamique o&#249; je peux stocker les noms des contr&#244;les.

Ou si tu sais &#224; l'avance le nombre exact d'objets que tu auras, d&#233;clares un tableau avec une dimension et une taille finie."



Je veux bien cr&#233;er un tableau avec les noms
des contr&#244;les, mais comment on fait pour les utiliser apr&#232;s ?! On va
arriver avec quelque chose du style : montableau.text ?! 



Marie

Starec · Answer

Je ne travail pas avec les tableaux, car je ne fais que de la progr sur des liaisons avec des bases Access, Tu dois avoir l'auteur , &#233;cris lui.

Starec

projetmarie · Answer

Oki, merci 

Si quelqu'un a d'autres id&#233;es, il ne faut surtout pas qu'il se g&#232;ne !!!!

Générer des objets et leur attribuer des fonctions ?!

4 réponses

Discussions similaires