Microsoft Visual Basic 2005 ( VB5 ) idioma permite a los usuarios editar un formulario de Windows de arrastrar y soltar elementos. Los VB5 controles son los elementos de una forma responsable para el intercambio de datos con la aplicación de usuario . VB5 incluye el control ListBox para el procesamiento de arrastrar y soltar las acciones del usuario , cuando se producen. Se muestra el icono del objeto que se arrastra en un formulario y recupera los datos de un formulario , cuando usted pone el control en un formulario. Al permitir que las operaciones de arrastrar y soltar en el usuario las formas de hacer más fácil añadir nuevas funciones en sus aplicaciones de VB5 . Instrucciones
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 < br >
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 .