1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| Private Sub ListViewDragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Lstv_Inv1.DragDrop, Lstv_Inv2.DragDrop, Lstv_Inv3.DragDrop
Dim lvItem As ListViewItem
Dim destItem As ListViewItem
Dim destLv As ListView = CType(sender, ListView)
Dim StrtLv As ListView = CType(sender, ListView)
Dim clX As Integer = destLv.PointToClient(New Point(e.X, e.Y)).X
Dim clY As Integer = destLv.PointToClient(New Point(e.X, e.Y)).Y
If e.Data.GetDataPresent("System.Windows.Forms.ListViewItem", False) Then
'dragging a listview item
lvItem = CType(e.Data.GetData("System.Windows.Forms.ListViewItem"), ListViewItem)
destItem = CType(sender, ListView).GetItemAt(clX, clY)
If destItem Is Nothing Then
destLv.Items.Insert(destLv.Items.Count, lvItem.Clone)
ElseIf destItem.Text = lvItem.Text Then
' C'est ICI que je voudrais réaliser la fonction demandée
Else
destLv.Items.Insert(destItem.Index, lvItem.Clone)
End If
lvItem.Remove()
End If
End Sub |
