Création de textbox par code + AddHandler
Bonjour,
j'ai créé un UserControl contenant 2 textboxes : Textbox1 et Textbox2.
Souhaitant utiliser le Drag 'n Drop, l'évènement MouseDown est le suivant :
Code:
1 2 3 4 5 6 7 8
|
Private Sub TextBlock1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles TextBlock1.MouseDown, TextBlock2.MouseDown
Dim tx As TextBox = CType(sender, TextBox)
tx.SelectAll()
DragDrop.DoDragDrop(tx, tx.Text, DragDropEffects.Move)
End Sub |
Tout fonctionne bien.
Maintenant, lors de l'utilisation de mon UserControl, je rajoute par code un nombre variable de textboxes. J'aimerais abonner leur évènement MouseDown à celui de Textbox1. J'ai essayé ceci :
Code:
1 2 3 4
|
Dim txtJoueur As New TextBox
txtJoueur.AllowDrop = True
AddHandler txtJoueur.MouseDownEvent, AddressOf (TextBlock1_MouseDown) |
Mais là, il me met une erreur sur l'instruction en rouge :
Citation:
Argument not specified for parameter 'e' of 'Private Sub TextBlock1_MouseDown(sender As Object, e As System.Windows.Input.MouseButtonEventArgs)'
J'ai pourtant suivi un exemple dans la MSDN qui fait de même...
Comment résoudre le problème ?