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 < br >