Créer control dynamiquement

Version imprimable

26/04/2009, 16h05
afrodje

Créer control dynamiquement
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:

1 2 3 4 5 6 Dim test As New Button test.Left = 50 test.Top = 20 test.Text = "monbutton" test.Show()
Merci
26/04/2009, 16h12
wakan

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

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

Code:

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

26/04/2009, 17h26
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
26/04/2009, 22h26
afrodje

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

Rajoute btn_Bouton.AutoSize = True pour voir.
27/04/2009, 08h13
Pol63

Citation:

Envoyé par afrodje

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
28/04/2009, 13h02
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
28/04/2009, 13h11
Pol63

Code:

dim b as button = directcast(sender, button)

ensuite soit tu peux faire if b.name =
28/04/2009, 16h13
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
Citation:
Envoyé par 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:

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.
29/04/2009, 21h28
afrodje
Citation:

Envoyé par roshy

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

Citation:

Envoyé par sperot51

Code:

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:

AddHandler btn_Bouton.Click, AddressOf test

pour ajouter une action.

Et voila la procédure test :
Code:

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