Discussion :

[Naografix]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[dkmix]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pol63]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[MABROUKI]

bonjour dkmix

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[dkmix]

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"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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