none
No puedo hacer Drag & Drop RRS feed

  • Pregunta

  • Alguien sabe que es lo que le pasa a mi aplicación que no permite hacer Drag & Drop, me sale el dibujo de prohíbido, y claro no hace nada, lo que yo quiero hacer es arrastrar archivos y obtener la ruta, encontré un código que hace eso pero no puedo probarlo.

    Private Sub oDragDropPanel_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles oDragDropPanel.DragDrop
    
            Dim Rutas As String() = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
    
            For Each ruta As String In Rutas
     
                Dim extension As String = Path.GetExtension(ruta).ToLower
     
                If extension.Length > 0 Then
    
                    ListControl1.Items.Add(ruta)
                End If
            Next
        End Sub 
        Private Sub oDragDropPanel_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles oDragDropPanel.DragEnter
            e.Effect = DragDropEffects.Copy
        End Sub


    Si la contestación te ha servido de ayuda márcala como respuesta. Si lo que publico no funciona, no tengo la culpa, SOY HUMANO, no una máquina.

    • Tipo cambiado Enrique M. Montejo sábado, 2 de mayo de 2015 15:33
    • Cambiado Enrique M. Montejo sábado, 2 de mayo de 2015 15:33 Pregunta relacionada con controles de aplicación Windows Forms.
    jueves, 30 de abril de 2015 10:24

Todas las respuestas

  • Hola LTNs

    a mi me funciono con un listbox

    necesita la propiedad AllowDrop de listbox en true y le puse los codigos

    Imports System.IO Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop Dim Rutas As String() = DirectCast(e.Data.GetData(DataFormats.FileDrop), String()) For Each ruta As String In Rutas Dim extension As String = Path.GetExtension(ruta).ToLower If extension.Length > 0 Then ListBox1.Items.Add(ruta) End If Next End Sub Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter e.Effect = DragDropEffects.Copy End Sub Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged End Sub End Class

    Saludos.Guadalajara Mexico



    jueves, 30 de abril de 2015 15:55
  • SOLUCIONADO (no puedo marcarlo)

    Gracias pero eso ya lo tenía pueste el problema era el Drag & Drop no funciona si la aplicación se ejecuta como Administrador.


    Si la contestación te ha servido de ayuda márcala como respuesta. Si lo que publico no funciona, no tengo la culpa, SOY HUMANO, no una máquina.


    • Editado LTNs jueves, 30 de abril de 2015 17:02
    jueves, 30 de abril de 2015 17:01