Cómo arrastrar y soltar en Visual Basic

Visual Basic es un lenguaje de programación publicado por Microsoft para que sea más fácil para los programadores desarrollar aplicaciones para el sistema operativo Windows. Como se puede sospechar , es compatible con la adición de muchas características comunes a las aplicaciones de Windows , incluyendo el de "arrastrar y soltar" . " Arrastrar y soltar " las acciones funcionan igual que las acciones , en lo que se refiere a Visual Basic " copiar y pegar " , y el trabajo a través de una combinación de los eventos MoveMove , DragEnter y DragDrop . Instrucciones
1

Crear un nuevo proyecto haciendo clic en "Archivo" y "Nuevo proyecto ".
2

doble clic en " dos controles TextBox " en la pestaña " Herramientas " para añadirlos a la aplicación.

3 Haga clic en el segundo cuadro de texto . Haga clic en la ficha "Propiedades " y , dentro de ella , haga clic en el botón que se parece a un rayo. Busque la fila " DragEnter " y haga doble clic en él. Esto creará un método " DragEnter " que se lleva a cabo cuando un elemento arrastrado entra en el cuadro de texto
4

Pega el siguiente código en el método de la etapa anterior : .

E. Efecto = DragDropEffects.Copy

Haga clic en el " Form.vb [ Design] ficha" para volver a la vista de diseño de GUI ( Graphical User Interface) .
5

Haga clic en el segundo cuadro de texto nuevo y volver a la ventana de propiedades . Haga clic en el rayo. Esta vez, seleccione " DragDrop . " A continuación , definirá las acciones a realizar cuando el texto se deja caer :

TextBox2.Text = e.Data.GetData ( DataFormats.Text )
6

Haga clic en el "Formulario . vb ficha [Diseño] " . Seleccione el primer cuadro de texto y seleccione el evento " MouseDown ":

MouseIsDown = True

También tendrá que pegar el siguiente código justo debajo de la " Public Class Form1 " línea :
< p > Dim MouseIsDown = False
7

Haga clic en el " Form.vb [ Design] ficha" para volver a la vista de diseño GUI y encontrar la propiedad " MouseMove " para el primer cuadro de texto . Haga doble clic en él para producir un evento " MouseMove " . Pega el siguiente :

si MouseIsDown Entonces

TextBox1.DoDragDrop ( TextBox1.Text , DragDropEffects.Copy )

final si

MouseIsDown = False