Microsoft Visual Studio
Ver Más instrucciones
1
lanzamiento Microsoft Visual Studio , haga clic en "Nuevo proyecto " en el panel izquierdo de la pantalla del ordenador , y ampliar " Plantillas instaladas . " abajo " Visual Basic" Haga clic en "Windows " y haga doble clic en " Aplicación de Windows Forms " en el centro de la ventana de diálogo para crear un nuevo proyecto.
2
doble clic en " TreeView " para agregar un nuevo control de vista de árbol su formulario. Haga doble clic en " TextBox " para añadir un nuevo cuadro de texto al formulario.
3 Haga clic en el cuadro de texto y haga clic en "Propiedades " para ver la ventana de propiedades . Haz clic en el icono de "Eventos" que se asemeja a una huelga de iluminación, y haga doble clic al lado de " MouseDown " para crear un nuevo evento.
4
Agregue el siguiente código debajo de " Public Class Form1 " para crear un variable global :
mouseDown Private As Boolean = False
5
Dentro del evento " MouseDown " añadir la siguiente línea de código para establecer la variable global en "True : "
mouseDown = True
6
Copia y pega el siguiente código para crear un evento " MouseMove " para el control de cuadro de texto, e iniciar arrastrando :
Private Sub TextBox1_MouseMove ( ByVal remitente como objeto, ByVal e como System.Windows.Forms.MouseEventArgs ) Maneja TextBox1.MouseMove
Si mouseDown Entonces
TextBox1.DoDragDrop ( TextBox1.Text , DragDropEffects.Copy )
< p> End If
mouseDown = False End Sub
7
Copia y pega el siguiente código para crear un evento " DragDrop " para el control " TreeView " , y añadir un nuevo nodo con la información en el cuadro de texto :
TreeView1_DragDrop Sub Private (remitente de ByVal como objeto , ByVal e como System.Windows.Forms.DragEventArgs ) Maneja TreeView1.DragDrop
< p > Me.TreeView1.Nodes.Add ( e.Data.GetData ( DataFormats.Text ))
End Sub
8
Copia y pega el siguiente código para crear un " DragEnter " acontecimientos para el control " TreeView " para mostrar " DragDropEffects : "
Private Sub TreeView1_DragEnter (remitente de ByVal como System.Object , ByVal e como System.Windows.Forms.DragEventArgs ) Maneja TreeView1.DragEnter
< p > Si ( e.Data.GetDataPresent ( DataFormats.Text ) ) Entonces
e.Effect = DragDropEffects.Copy
demás
e.Effect = DragDropEffects.None
End If End Sub
9
Press "F5 " para ejecutar el programa, y escriba el texto en el cuadro de texto. Haga clic en el cuadro de texto y arrastre el ratón sobre el control " TreeView " mientras mantiene presionado el botón del ratón. Suelte el botón del mouse para agregar nuevo nodo.