Discussion :

[ouafaama]

bonjour,
j'ai un problème de codage concernant le drag and drop en vb.net.
en effet j'aimerai avoir une listview ou on pourra deplacer ses composantes, le problème c'est que 1erement quand jessaye de deplacer une cellule ca me donne une autre copie de la cellule, il ne la deplace pas. en plsu de ca j'aimerai savoir quelles sont les actions du drag & drop, car j'aimera suivant ces actions, pouvoir metter a jour ma base de donnée.
SVP si quelqu'un a une solution, je lui serai vivement reconnaissante, merci d'avance.

[zebrette]

Salut,

Le drag drop ca se fait avec 3 événements:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

après le problème des items qui se copie au lieu de se déplacer ca dépend du copie/colle au lieu de Coupe/colle

-Zebrette