24. august 2004 - 12:19Der er
8 kommentarer og 1 løsning
drag / drop spørgsmål
Hvis jeg læser en dragdrop fra f.eks desktoppen med:
Private Sub ListView1_dragdrop(ByVal sender As System.Object, ByVal e As DragEventArgs) Handles ListView1.DragDrop 'MsgBox(e.Data.GetData(DataFormats.FileDrop)) If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
end if end sub
Hvordan gør jeg så lige når der skal laves en event på en drag fra mit program til en drop på f.eks desktoppen?
.. du skal kort sagt bruge metoden "DoDragDrop" som bla. tager et objekt som argument... du skal bare være sikker på at det objektet har et type som desktoppen kender.
Private Sub ListView1_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles ListView1.ItemDrag If ListView1.SelectedItems.Count > 0 Then Dim strFilesPath() As String ReDim strFilesPath(ListView1.SelectedItems.Count - 1) For i As Integer = 0 To ListView1.SelectedItems.Count - 1 strFilesPath(i) = ListView1.SelectedItems(i).Text Next Dim dt As DataObject = New DataObject(DataFormats.FileDrop, strFilesPath) ListView1.DoDragDrop(dt, DragDropEffects.Copy) End If End Sub
Læg mærke til den 3. nederste linie, hvor der står DragDropEffects.Copy. Dette ændrer du til DragDropEffects.Move, hvis du gerne vil have flyttet filen fra sin oprindelige placering, og ikke kopieret den.
Hehe, jeg bor i Holbæk, men arbejder i København ;)
Synes godt om
Ny brugerNybegynder
Din løsning...
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.