Gestion objet dynamique

Bonjour a tous !

J'ai quelque soucis dans la gestion d'objet dynamique.

je m'explique en vous donnant un exemple :

J'ai deux boutons sur mon formulaire, les deux creer depuis la boite a outil.

Je veux que quand j'appuis sur mon PREMIER bouton, il me creer 50 textbox.

Ici j'y suis arriver

Code:

---

1 2 3 4 5 6 7 8 9

Dim Test As New System.Windows.Forms.TextBox Incre += 1   Test.Name = "Blabla" & Incre Me.Controls.Add(Test)   Test.Text = Test.Name   Test.Location = New Point(10, Incre * 30)

---

Maintenant je veux que quand j'appuis sur mon DEUXIEME bouton, la Txtbox3 par exemple ai comme text : "Hello"

Le hic c'est que si je met dans mon bouton2.click : Test3.text = "Hello"
Il me dit que ce n'est pas creer...

Comment je peux faire pour pouvoir le faire ?


Merci !

bonjour,
quelque chose avec les expressions lambda, comme ceci ?

Code:

---

1 2 3

Dim TxtBox3 = Me.Controls.SingleOrDefault(function(txtBox) txtBox.Name = "Blabla3") TxtBox3.Text = "Hello"

---

Citation:

---

Envoyé par Naografix

Le hic c'est que si je met dans mon bouton2.click : Test3.text = "Hello"
Il me dit que ce n'est pas creer...

---

quand on pose un bouton, vs créé une variable avec le nom qu'on donne au controle
donc me.button1 est possible
par contre pour les controles créés pendant l'exécution, la seule variable ici c'est Test
et une fois sortie de la sub la variable n'existe plus (l'instance existe toujours par contre, pas de soucis)

le but est donc de pouvoir retrouver l'instance, il y a pour ca plusieurs moyens
la propriétés controls permet de retrouver un controle en fonction de sa propriété name

Code:

---

dim c = leparent.controls("le nom as string du controle qu'on cherche")

---

un autre moyens c'est d'avoir un list(of ) en variable privée, ca peut se typer, ca évite donc les directcast
monlist.add(Test) ' à chaque tour de la boucle d'ajout des controles

ensuite monlist(i) retourne le controle (attention i de 0 à n-1)

sinon avec une clé autre qu'un integer indexé pour retrouver un controle c'est de faire un dictionary (Tkey, tControl) à la place d'un list of
exemple avec string, textbox :

Code:

---

1 2 3 4 5

private _Dico as new dictionary(of string, textbox) (...) _Dico.add("aa" & i.tostring,Test) (...) _Dico("aa3").text = "nouveau text"

---

autre info liée : pour gérer des évènements sur des controles créés par code il faut utiliser AddHandler instance.nomEvent, addressof NomSub (et removehandler quand on en a plus besoin)

bonjour dkmix

Si tu prends une bonne portion de liquide magique chez le grand druide magix ,tu y arriveras:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Public Class Form3 Dim Incre As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Test As New System.Windows.Forms.TextBox Incre += 1   Test.Name = "Blabla" & Incre Me.Controls.Add(Test)   Test.Text = Test.Name   Test.Location = New Point(10, Incre * 30) End Sub   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim ctl As Control = Me While ctl IsNot Nothing If TypeOf (ctl) Is TextBox Then Select Case ctl.Name Case "Blabla1" ctl.Text = "hello1" Case "Blabla2" ctl.Text = "hello2" Case "Blabla3" ctl.Text = "hello3" End Select   End If ctl = Me.GetNextControl(ctl, True) End While   End Sub End Class

---

bon code...

:lol:

Citation:

---

Si tu prends une bonne portion de liquide magique chez le grand druide magix ,tu y arriveras:

---

Pas besoin du druide magix, j'ai oublié la méthode "OfType" :roll:

Code:

---

1 2 3

Dim TxtBox3 = Me.Controls.OfType(Of TextBox).SingleOrDefault(function(txtBox) txtBox.Name = "Blabla3") TxtBox3.Text = "Hello"

---