Discussion :

[Dos]

Bonjour,
J'ai un soucis lorsque je crée un bouton dynamiquement, l’événement AddHandler ne remonte pas jusqu'au menu.

Je m'explique :

Code :

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

1
2
3
4
5
6
7
8
 
Dim lMenu As menuTest
Dim lBtn As New Button
lBtn.Text = "test"
lBtn.CommandName = CStr(2)
lBtn.CommandArgument = "test"
AddHandler lBtn.Click, AddressOf TestBouton
lMenu.Controls.Add(lBtn)

On a beau cliquer sur le bouton lBtn la fonction TestBouton n'est jamais appelée..

Merci de votre aide...

[Danyel]

http://msdn.microsoft.com/fr-fr/libr...VS.100%29.aspx

[Dos]

Merci, je connais en gros comment ça marche mais là on n'arrive pas remonter la "barrière" du menu. C'est comme si les événement ne parvenaient pas à la couche du dessus...

[zebrette]

Vous avez essayé de déclarer le button comme "withevent"

Dim Btn as Button
Public/Friend withevent Btn as Button

[Dos]

Merci,
Malheureusement j'ai l'erreur

WithEvents n'est pas valide dans une déclaration de variable locale

...

[zebrette]

ca doit etre déclaré en variable module ou class

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Module MyModule '/class
 
    Dim variable 'module/class(utilisable dans toutes les sub)
 
    Sub Mysub()
        Dim variable 'sub(locale) (utilisable dans cette sub seulement)
    End Sub
 
End Module '/class

et donc dans votre cas:

Code :

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

1
2
3
4
5
6
7
 
Module MyModule2
    Private WithEvents Btn As button
    Sub Mysub()
        Btn = New button
    End Sub
End Module '/class