lancio di Microsoft Visual Studio , fare clic su " Nuovo Progetto" dal riquadro sinistro dello schermo del computer , e espandere " Visual Basic " " Modelli installati . " qui sotto Fare clic su "Windows" e fare doppio clic su " Applicazione Windows Form " dal centro della finestra di dialogo per creare un nuovo progetto .
2
doppio clic su " TreeView " per aggiungere una nuova visualizzazione controllo struttura per il modulo. Fare doppio clic su " TextBox " per aggiungere una nuova casella di testo al form.
3
pulsante destro del mouse sulla casella di testo e fare clic su "Proprietà" per visualizzare la finestra delle proprietà . Fare clic sull'icona "Eventi" che assomiglia a uno sciopero di illuminazione , e fare doppio clic su accanto a " MouseDown " per creare un nuovo evento .
4
Aggiungere il codice riportato di seguito " Public Class Form1 " per creare un variabile globale :
mouseDown privata As Boolean = False
5
All'interno della manifestazione " MouseDown " aggiungere la seguente riga di codice per impostare la variabile globale a "Vero : "
mouseDown = True
6
Copia e incolla il seguente codice per creare un evento " MouseMove " per il controllo della casella di testo e avviare il trascinamento :
private Sub TextBox1_MouseMove ( ByVal sender As Object , ByVal e come System.Windows.Forms.MouseEventArgs ) Maniglie TextBox1.MouseMove
mouseDown Poi
TextBox1.DoDragDrop ( TextBox1.Text , DragDropEffects.Copy ) per
End If
mouseDown = False
End Sub
7
Copia e incolla il seguente codice per creare un evento " DragDrop " per il controllo " TreeView " , e aggiungere un nuovo nodo utilizzando le informazioni nel controllo casella di testo :
TreeView1_DragDrop private Sub ( ByVal sender As Object , ByVal e As System.Windows.Forms.DragEventArgs ) Maniglie TreeView1.DragDrop
Me.TreeView1.Nodes.Add ( e.Data.GetData ( DataFormats.Text ) ) per
End Sub
8
Copia e incolla il seguente codice per creare un " DragEnter " evento per il controllo " TreeView " per mostrare " DragDropEffects : "
private Sub TreeView1_DragEnter ( ByVal sender As System.Object , ByVal e As System.Windows.Forms.DragEventArgs ) Maniglie
TreeView1.DragEnter
Se ( e.Data.GetDataPresent ( DataFormats.Text )) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None < br
End > Se
End Sub
9
Premere " F5 " per eseguire il programma , e digitare il testo nella casella di testo . Fare clic sulla casella di testo e trascinare il mouse per il controllo " TreeView " tenendo premuto il tasto del mouse . Rilasciare il pulsante del mouse per aggiungere nuovo nodo .
Programmazione © www.354353.com