Discussion :

[afrodje]

Bonjour,
Je cherche à créer un control (par exemple button) dynamiquement car il y aura autant de button que d'enregistrement dans ma base de donnée.

J'ai sorti cela mais ça ne marche pas et ça me parait léger.

Code :

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

1
2
3
4
5
6
 
        Dim test As New Button
        test.Left = 50
        test.Top = 20
        test.Text = "monbutton"
        test.Show()

Merci

[wakan]

Bonjour,
As-tu regardé ce topic :
http://www.developpez.net/forums/d32...bouton-action/
A bientôt

[afrodje]

Merci du lien mais je n'ai qu'un control à l'ecran alors que je devrais en avoir 4.

Code :

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

1
2
3
4
5
6
7
8
9
10
        Dim btn_Bouton As Label
        For intI As Integer = 1 To nb_enregistrement
            btn_Bouton = New Label
            btn_Bouton.Name = "Label" & intI.ToString
            btn_Bouton.TabIndex = intI
            btn_Bouton.Text = "Clic"
            MsgBox("test")
            btn_Bouton.Top = (20 + intI * 10)
            Panel_list.Controls.Add(btn_Bouton)
        Next

La boucle est bien exécuté 4 fois car la MsgBox s'affiche 4 fois

Comment est ce possible?
Merci

[Pol63]

tes 4 controles sont au meme endroit c'est pour ca que tu n'en vois qu'un
il faut donc leur attribuer une place
ou en plus simple les mettre dans un flowlayoutpanel

[afrodje]

Mais grâce à btn_Bouton.Top = (20 + intI * 10), ils se trouvent les uns en dessous des autres, non?

[smyley]

Rajoute btn_Bouton.AutoSize = True pour voir.

[Pol63]

Mais grâce à btn_Bouton.Top = (20 + intI * 10), ils se trouvent les uns en dessous des autres, non?

j'avais pas fait gaffe mais essaye * 100 plutot que * 10

[afrodje]

C'est ok, j'arrive à voir l'ensemble des controls.

Mais cependant, si le contrôle est de type button, comment affecter une action dessus?
J'ai réussi à utiliser "AddHandler btn_Bouton.Click, AddressOf maProcedure"

Mais mon problème est de savoir quel bouton à été cliqué ?
J'ai récupéré le sender.ToString mais je ne fais pas grand chose avec cette chaine...

Merci

[Pol63]

Code :

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

dim b as button = directcast(sender, button)

ensuite soit tu peux faire if b.name =

[roshy]

Dans maProcedure, au lieu de mettre le sender as object peux-tu le mettre sender as Button? Si ta procédure ne sert qu'à traiter des boutons, cela ne devrait pas causer de problèmes.

Pour ce qui est de la question de départ

Bonjour,
Je cherche à créer un control (par exemple button) dynamiquement car il y aura autant de button que d'enregistrement dans ma base de donnée.

J'ai sorti cela mais ça ne marche pas et ça me parait léger.

Code :

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

1
2
3
4
5
6
 
        Dim test As New Button
        test.Left = 50
        test.Top = 20
        test.Text = "monbutton"
        test.Show()

Merci

Moi personellement je ne metterais pas Test.Show mais plutôt test.Parent = LaForm. Et pour être sur, rajouté test.Visible = True.

[afrodje]

Dans maProcedure, au lieu de mettre le sender as object peux-tu le mettre sender as Button?

Et ensuite, cela m'apporte quoi?
Je ne peux toujours pas différencier le bouton pressé... et récuperer au moins son nom ou libelle...

Code :

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

dim b as button = directcast(sender, button)

ensuite soit tu peux faire if b.name =

Il faut juste alors mettre le nom du bouton est à égale au libellé comme ca, on peut travailler dessus simplement.

Alors la solution :

Pour le bouton dynamque, il faut :

Code :

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

AddHandler btn_Bouton.Click, AddressOf test

pour ajouter une action.

Et voila la procédure test :

Code :

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

1
2
3
4
5
    Private Sub test(ByVal sender As Button, ByVal e As System.EventArgs)
        ' Dim b As Button = DirectCast(sender, Button)
        MsgBox(sender.Name)
 
    End Sub

Dans ce cas la, tu n'a plus besoin de DirectCast(sender, Button).....