1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
'1. la copie depuis la source au moment du click
Private Sub UsersLBs_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles UsersLB.MouseDown
sender.DoDragDrop(sender.selectedItems, DragDropEffects.Copy Or DragDropEffects.Move) 'ou n'importe quel effet que tu souhaite
End Sub
'2. le dragover sur la cible
Private Sub UsersLBs_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles UsersLB.DragOver
e.Effect = DragDropEffects.Copy
'ou tu peux contoler le type de l'objet dragué pour éviter que
'l'utilisateur ne drag n'importe quoi
End Sub
'3. le drop sur la cible
Private Sub UsersLBs_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles UsersLB.DragDrop
Dim oItem
Dim Selected = e.Data.GetData(GetType(ListBox.SelectedObjectCollection))
For Each oItem In Selected
If blahblah Then sender.Items.Add(oItem)
Next
End If
End Sub |
