? Trække og slippe fra en " TextBox " i en " TreeView " kontrol i Visual Basic.NET applikation kan nemt gøres ved at bruge et par mus begivenhed egenskaber. Du kan bruge " mouseDown " begivenhed til at spore , når brugeren har klikket på " TextBox " kontrol . Brug " mouseMove " begivenhed for at udføre kode , når brugeren flytter deres musen over til " TreeView " kontrol . Brug " DragEnter " og " DragDrop " begivenheder i " TreeView " kontrol at opdage, når musen kommer ind og taber oplysningerne. Ting du skal
Microsoft Visual Studio
Vis Flere Instruktioner
1

Launch Microsoft Visual Studio , klik på " Nyt projekt " fra venstre rude på din computerskærm , og expand " Visual Basic " under " Installerede skabeloner ". Klik på " Windows" og dobbeltklik på "Windows Forms Application " fra midten af dialogvinduet for at oprette et nyt projekt.
2

Dobbeltklik på " TreeView " for at tilføje en ny træstruktur kontrollen til din formular . Dobbeltklik på " TextBox " for at tilføje en ny tekstboks til formularen .
3

Højreklik på tekstboksen, og klik på "Egenskaber " for at se vinduet med egenskaber . Klik på " Arrangementer " ikonet , der ligner en belysning strejke , og dobbeltklik på siden af ​​" mouseDown " for at oprette en ny begivenhed.
4

Føj følgende kode nedenfor "Public Class Form1 " for at oprette et global variabel : Hej

Privat mouseDown Som Boolean = False
5

Inde i " mouseDown " begivenhed tilføje følgende linje kode til at sætte den globale variabel til "Sandt : "

mouseDown = Sand
6

Kopier og indsæt følgende kode til at oprette en " mouseMove " begivenhed for tekstboks , og iværksætte trække : Hej

Private Sub TextBox1_MouseMove ( ByVal afsender As Object , ByVal e Som System.Windows.Forms.MouseEventArgs ) Håndterer TextBox1.MouseMove
p Hvis mouseDown Så

TextBox1.DoDragDrop ( TextBox1.Text , DragDropEffects.Copy )
< p> End If

mouseDown = False

End Sub
7

Kopier og indsæt følgende kode til at oprette en " DragDrop " begivenhed for " TreeView " kontrol og tilføje en ny node ved hjælp af oplysningerne i tekstboks : Hej

Private Sub TreeView1_DragDrop ( ByVal afsender Som Object , ByVal e Som System.Windows.Forms.DragEventArgs ) Håndtag TreeView1.DragDrop
< p > Me.TreeView1.Nodes.Add ( e.Data.GetData ( DataFormats.Text ) )

End Sub
8

Kopier og indsæt følgende kode til at oprette en " DragEnter " begivenhed for " TreeView " kontrol for at vise " DragDropEffects : "

Private Sub TreeView1_DragEnter ( ByVal afsender Som System.Object , ByVal e Som System.Windows.Forms.DragEventArgs ) Håndtag TreeView1.DragEnter
< p > Hvis ( e.Data.GetDataPresent ( DataFormats.Text ) ) Så

e.Effect = DragDropEffects.Copy

Else

e.Effect = DragDropEffects.None < br >

End If

End Sub
9

Tryk på " F5 " for at køre dit program , og skriv tekst i tekstfeltet. Klik på tekstboksen , og træk musen over til " TreeView " kontrol , mens du holder museknappen nede . Slip museknappen for at tilføje nye node.