? Dra och släppa från ett " TextBox " till en " TreeView " kontroll i Visual Basic.NET program kan enkelt göras genom att använda ett fåtal fastigheter mushändelsen . Du kan använda " mouseDown " händelsen för att spåra när användaren klickade på " TextBox " kontroll . Använd " MouseMove " händelse att köra kod när användaren flyttar musen över den " TreeView " kontroll . Använd " dragenter " och " dragdrop " händelser i " TreeView " kontroll för att upptäcka när musen går in och släpper informationen . Saker du behöver
Microsoft Visual Studio
Visa fler instruktioner
1
Launch Microsoft Visual Studio , klicka på " Nytt projekt " från den vänstra rutan på din datorskärm , och expandera " Visual Basic " under " Installerade mallar . " Klicka på " Windows " och dubbelklicka på " Windows Forms Application " från mitten av dialogrutan för att skapa ett nytt projekt .
2
Dubbelklicka på " TreeView " för att lägga till en ny kontroll trädvy till formuläret . Dubbelklicka på " TextBox " för att lägga till en ny textruta i formuläret .
3
Högerklicka på textrutan och klicka på "Egenskaper" för att visa fönstret Egenskaper . Klicka på " Händelser " ikon som liknar en belysning strejk , och dubbelklicka bredvid " mouseDown " för att skapa en ny händelse .
4
Lägg till följande kod under " public class Form1 " för att skapa en global variabel :
Privat mouseDown As Boolean = False
5
Inne i " mouseDown " händelse lägga till följande kodrad för att sätta den globala variabeln " Sant : "
mouseDown = Sant
6
Kopiera och klistra in följande kod för att skapa en " MouseMove " händelse för textrutan kontroll , och initiera dra :
Private Sub TextBox1_MouseMove ( ByVal avsändare As Object , ByVal e Som System.Windows.Forms.MouseEventArgs ) Hanterar TextBox1.MouseMove
p Om mouseDown Sedan
TextBox1.DoDragDrop ( TextBox1.Text , DragDropEffects.Copy ) katalog
End If
mouseDown = False
End Sub
7
Kopiera och klistra in följande kod för att skapa en " dragdrop " händelsen för " TreeView " kontroll , och lägga till en ny nod med hjälp av informationen i textrutan kontroll :
Private Sub TreeView1_DragDrop ( ByVal avsändare As Object , ByVal e Som System.Windows.Forms.DragEventArgs ) Hanterar TreeView1.DragDrop
Me.TreeView1.Nodes.Add ( e.Data.GetData ( DataFormats.Text ) ) katalog
End Sub
8
Kopiera och klistra in följande kod för att skapa en " dragenter " händelsen för " TreeView " kontroll för att visa " DragDropEffects : "
Private Sub TreeView1_DragEnter ( ByVal avsändare som System.Object , ByVal e som System.Windows.Forms.DragEventArgs ) Handtag TreeView1.DragEnter
Om ( e.Data.GetDataPresent ( DataFormats.Text ) ) Sen
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
9
Tryck " F5 " för att köra programmet , och typ text i textrutan . Klicka på textrutan och dra musen över till " TreeView " kontroll medan du håller ned musknappen . Släpp musknappen för att lägga till ny nod .
