Discussion :

[Pouknouki]

Bonjour,
Avec mon programme vb 2010, je créé des boutons dynamiquement en fonction du nombre de lignes que contient un tableau. Tout va bien, ils sont créés et s'affichent. Cependant, je ne sais pas comment faire pour gérer les clics. Savez vous comment faire ?
Voilà mon code de création de boutons :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Public Sub CreerBoutonsDetails()
        ReDim BoutonsDetails(0 To NBMatiere - 1) 'Tableau contenant les boutons
        Dim i As Integer
        Me.InitializeComponent()
        For i = 0 To NBMatiere - 1
            BoutonsDetails(i) = New Button
            BoutonsDetails(i).Text = "Détails"
            BoutonsDetails(i).Visible = True
            BoutonsDetails(i).Left = 600
            BoutonsDetails(i).Top = BoutonsDetails(i).Height / 2 + (i + 1) * BoutonsDetails(i).Height
            Me.Controls.Add(BoutonsDetails(i))
        Next
    End Sub

Merci

[Pol63]

Code :

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

AddHandler Instance.Event, AddressOf LaSub

[Pouknouki]

Faut mettre ton code où ?

[Sankasssss]

dans google
[ame="http://www.google.be/search?sourceid=chrome&ie=UTF-8&q=AddHandler+Instance.Event%2C+AddressOf+LaSub"]AddHandler Instance.Event, AddressOf LaSub - Google zoeken[/ame]

[Pol63]

ou dans msdn (l'aide de vs), accessible via F1
et en plus simple tu tapes AddHandler, tu mets ton curseur dessus et tu fais F1, tu vas tomber sur la bonne page directement

[Pouknouki]

Merci à Pol63 pour la première indication, mais malgré tout il a fallu chercher. Pour ceux que ça intéresse, je mets mon nouveau code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Public Sub CreerBoutonsDetails()
        ReDim BoutonsDetails(0 To NBMatiere - 1)
        Dim i As Integer
        Me.InitializeComponent()
        For i = 0 To NBMatiere - 1
            BoutonsDetails(i) = New Button
            BoutonsDetails(i).Text = "Détails"
            BoutonsDetails(i).Visible = True
            BoutonsDetails(i).Left = 600
            BoutonsDetails(i).Top = BoutonsDetails(i).Height / 2 + (i + 1) * BoutonsDetails(i).Height
            Me.Controls.Add(BoutonsDetails(i))
            AddHandler (BoutonsDetails(i).Click), AddressOf Bouton_Click
        Next
    End Sub

La Sub appelée

Code :

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

1
2
3
4
5
6
7
8
    Sub Bouton_Click()
        For i = 0 To NBMatiere - 1
            If BoutonsDetails(i).Focused Then
                Debug.Print(i)
            End If
        Next
 
    End Sub

[Pol63]

la signature de la méthode doit être la même que celle de l'event (ce qui n'est pas ton cas)
ca permet d'ailleurs de récupérer le bouton cliqué via sender

signature = paramètres en nombre et en type

[sinople]

Je crois pas qu'une erreur soit générée dans le cas présent (doit être soit null, soit même signature).

Néanmoins je suis entiérement d'accord que c'est pas propre de l'oublier !