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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 :
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 ?