1
clic en "Inicio " de Windows y haga clic en " Microsoft Visual Basic 2005 . "
2 Haga clic en " Herramientas " en la ventana abierta para agregar un control ListBox a la forma " Form1 " default .
3
Cambie la propiedad " AllowDrop " del control ListBox a "True" en la ventana " Propiedades" para permitir que objetos sean arrastrados hacia el control .
4 Haga clic en " Form1 " y haga clic en " Ver código" en
5
Agregue el siguiente código debajo de la clase Form1 " Explorador de soluciones. ":
Private Sub listBox1_DragEnter ( ByVal sender As Object , _
e ByVal As
System.Windows.Forms.DragEventArgs ) _
Maneja ListBox1.DragEnter
Si ( e.Data.GetDataPresent ( DataFormats.FileDrop ) ) Entonces
e.Effect = DragDropEffects.All
demás
e.Effect = DragDropEffects . Ninguno
End If End Sub
6
Agregue el código siguiente a la clase Form1: Private Sub
listBox1_DragDrop (remitente de ByVal como Object, _
e ByVal As
System.Windows.Forms.DragEventArgs ) _
Maneja ListBox1.DragDrop
Dim s () As String = e.Data.GetData ( " FileDrop " , False )
Dim i As Integer
For i = 0 To s.length - 1
ListBox1.Items.Add ( s ( i ))
Siguiente I Love
End Sub
para manejar el lanzamiento del evento de arrastre .
7
Haga clic en " archivo" y a continuación, haga clic en " Guardar" para activar la función de arrastrar y soltar en el formulario de Windows en el programa de Visual Basic 2005 .