? Dra og slippe fra en " TextBox " til et " Utforsker " kontroll i Visual Basic.NET applikasjonen kan enkelt oppnås ved hjelp av noen få mus hendelsesegenskapene . Du kan bruke " mousedown " hendelse for å spore når brukeren klikket på " TextBox " kontroll. Bruk " mouseMove " hendelse for å kjøre kode når brukeren beveger musen over til " Utforsker " kontroll. Bruk " DragEnter " og " dragdrop " hendelser i " Utforsker " kontroll for å oppdage når musen går inn og synker informasjon. Du trenger
Microsoft Visual Studio
Vis flere instruksjoner
en

Launch Microsoft Visual Studio , klikk " Nytt prosjekt " fra den venstre ruten på skjermen , og utvide " Visual Basic " under " Installerte maler . " Klikk på " Windows" og dobbeltklikk på "Windows Forms Application " fra sentrum av dialog vinduet for å opprette et nytt prosjekt .
2

Dobbeltklikk på " Utforsker " for å legge til en ny trevisningen kontrollen til skjemaet. Dobbeltklikk på " TextBox " for å legge en ny tekstboks i skjemaet.
3

Høyreklikk tekstboksen , og klikk " Properties" for å vise egenskapene vinduet. Klikk på "Hendelser "-ikonet som ligner en belysning streik, og dobbeltklikk på siden av " mousedown " for å opprette en ny hendelse .
4

Legg til følgende kode under "Public Class Form1 " for å lage en global variabel : en

Private mouseDown As Boolean = False
5

Inne i " mousedown " event legge til følgende linje med kode for å sette den globale variabelen til «True : "

mouseDown = sant
6

Kopier og lim inn følgende kode for å lage en " mouseMove " hendelse for tekstboksen kontroll, og sette i gang å dra : en

Private Sub TextBox1_MouseMove ( ByVal avsenderen som objekt , ByVal e Som System.Windows.Forms.MouseEventArgs ) Håndtak TextBox1.MouseMove
p Hvis mouseDown Deretter

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

mouseDown = False

End Sub
7

Kopier og lim inn følgende kode for å lage en " dragdrop " hendelsen for den " Utforsker " kontroll , og legge til en ny node ved hjelp av informasjonen i tekstboksen kontroll : en

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

End Sub
8

Kopier og lim inn følgende kode for å lage en " DragEnter " hendelsen for den " Utforsker " kontroll for å vise " DragDropEffects : "

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

e.Effect = DragDropEffects.Copy

Else

e.Effect = DragDropEffects.None

End If

End Sub
9

Trykk " F5 " for å kjøre programmet , og skriv inn tekst i tekstboksen . Klikk på tekstboksen , og dra musen over til " Utforsker " kontroll mens du holder museknappen . Slipp museknappen for å legge ny node.