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