Cliquer glisser une imge dans un Listview
salut tous le monde
sous vs 2005, sur un winform, j'ai 2 label (label1 et label 2) dont la propriété lowdrop est true et et la propriété picture est affecté sur deux image differentes. J'ai aussi un Listview1 dont la propriété Allowdrop est true.
je vourdrais le code qui me permet de cliquer-glisser le picture de chque label vers listview.
voila ce que j'ai fais:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Private Sub ListView1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
Dim i As Integer
i = ImageList1.Tag
ListView1.Items.Clear()
ListView1.Items.Add("", i)
ListView1.Update()
End Sub
Private Sub lbl1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbl1.MouseDown
Dim Lab As Label
Lab = CType(sender, Label)
Lab.DoDragDrop(Lab, DragDropEffects.Copy)
ImageList1.Tag = 0
End Sub
Private Sub lbl2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbl2.MouseDown
Dim Lab As Label
Lab = CType(sender, Label)
Lab.DoDragDrop(Lab, DragDropEffects.Copy)
ImageList1.Tag = 1
End Sub |
le problème est que cliquer glisser sur label1 s'exécute bien, mais celui sur label2 ne s'exécute qu'au deuxième cliquer glisser.
corrigez moi ce code svp