Bonsoir a tous,
J'ai trouvé sur vbfrance un bout de code en vb net mais je voudrais le mettre en vb6, seulement je ne connais pas les fonctions qui correspondent. Pouvez vous m'aider?
Private Sub TreeView1_ItemDrag(ByVal sender As Object, _
ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles TreeView1.ItemDrag
Dim S1 As String
Dim nd As TreeNode
nd = e.Item
S1 = nd.Text
'Defini le noeud a deplacer et initialize le Drag an Drop
'e.item est le noeud
'e.item.text ne fonctionne pas , nd.text fonctionne ,...pourquoi ??
DoDragDrop(S1, DragDropEffects.Move Or DragDropEffects.Copy)
End Sub
Private Sub ListBox1_DragEnter(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
'Controle de type de donnée a entrer dans le Listbox
If e.Data.GetDataPresent(DataFormats.Text) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub ListBox1_DragDrop(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
Dim S1 As String
Dim i1 As Integer
'
S1 = e.Data.GetData(DataFormats.Text)
ListBox1.Items.Add(S1)
'ici on a parlé de copy
'pour move(=deplacer) on peu ecrire
i1 = ListBox1.FindStringExact(S1)
'Listbox1.items.RemoveAt(i1)
End Sub
End Class
Merci du lien, mais cela ne m'aide que très peu.
Je veut faire un drag and drop a partir d'un element selectionné dans le treeview pour le mettre dans une listview mais je n'y arrive pas.
C'est si compliqué que ça de taper "drag drop treeview listview" dans la recherche des codes pas en .net ?
Un Drag and Drop, que ce soit sur un TreeView ou une ListView, cela ne change pas grand chose.
C'est le principe qu'il faut comprendre, pas forcemment trouver ici le code exact.
