Private Sub ListView1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop
If e.Effect = DragDropEffects.Copy Then 'I DragOver-event handleren har vi allerede tjekket, om 'data-typen er ok, og det er den, hvis Effect = Copy. Dim d() As String = e.Data.GetData(DataFormats.FileDrop, True) Dim I As Integer For I = 0 To UBound(d) ListView1.Items.Add(d(I)) Next End If End Sub
Private Sub ListView1_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragOver If e.Data.GetDataPresent(DataFormats.FileDrop) Then e.Effect = DragDropEffects.Copy Else e.Effect = DragDropEffects.None End If End Sub
Mangler selvfølgelig at nævne, at ListView'ens AllowDrop property skal være True (til andre læsere af dette spm).
Jeg ved ikke hvordan man får windows explorer til at acceptere et DragDrop fra din applikation, men du skal nok bruge noget lignende dette (og så bygge videre herfra).
Private Sub ListView1_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles ListView1.ItemDrag ListView1.DoDragDrop(e.Item, DragDropEffects.Move) End Sub
Ja, jeg har prøvet mange ting nu... Det er noget pis... Jeg ved sku ikke hvad jeg mere kan prøve... Hvis du gidder at bruge lidt tid på det, kommer der flere point?
Jeg har forsøgt at søge på emnet, men jeg fik ikke nogen særlig brugbare resultater ud af det. Jeg har ikke så meget tid til rådighed, men jeg vil da skrive her, hvis jeg skulle komme nærmere en løsning, senere hen.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.