Slepen en neerzetten van een " TextBox " in een " TreeView " control in uw Visual Basic.NET applicatie kan gemakkelijk worden bereikt door het gebruik van een enkele muis event eigenschappen . U kunt de " MouseDown " evenement te gebruiken om bij te houden wanneer de gebruiker de " TextBox " control geklikt . Gebruik de " MouseMove " evenement om code uit te voeren wanneer de gebruiker de muis beweegt over naar de " TreeView " controle . Gebruik de " DragEnter " en " DragDrop " gebeurtenissen in de " TreeView " controle om te detecteren wanneer de muis binnenkomt en laat de informatie . Wat je nodig hebt
Microsoft Visual Studio
Toon Meer Aanwijzingen
1 Lancering Microsoft Visual Studio , klikt u op " New Project" van het linkerpaneel van uw computerscherm , en uitbreiden " Visual Basic " onder " Installed Sjablonen . " Klik op " Windows " en dubbelklik op " Windows Forms Application " van het centrum van het dialoogvenster om een nieuw project aan te maken .
Dubbelklik op " TreeView " 2 naar een nieuwe boomstructuur te voegen uw formulier . Dubbelklik op " TextBox " om een nieuw tekstvak toe te voegen aan uw formulier .
3 rechtermuisknop op het tekstvak en klik op "Eigenschappen " om het eigenschappenvenster weer te geven. Klik op de " Events" icoon dat een blikseminslag lijkt , en dubbelklik op naast " MouseDown " om een nieuwe gebeurtenis te maken .
4 Voeg de volgende code in " Public Class Form1 " het creëren van een globale variabele : Prive mouseDown
Zoals Boolean = False
5 Inside the " mouseDown " event voeg de volgende regel code aan de globale variabele ingesteld op 'Ware : "
mouseDown = True
Copy 6 en plak de volgende code om een " MouseMove " evenement voor het tekstvak te maken , en start het slepen : Private Sub TextBox1_MouseMove
( ByVal afzender als Voorwerp , ByVal e als System.Windows.Forms.MouseEventArgs ) Handles TextBox1.MouseMove
Als mouseDown TextBox1.DoDragDrop dan
( TextBox1.Text , DragDropEffects.Copy ) op End If mouseDown
= False End Sub
Copy
7 en plak de volgende code om een " DragDrop " voor het " TreeView " control creëren , en voeg een nieuw knooppunt met behulp van de informatie in het tekstvak : Private Sub TreeView1_DragDrop
( ByVal afzender als Voorwerp , ByVal e als System.Windows.Forms.DragEventArgs ) Handles TreeView1.DragDrop
Me.TreeView1.Nodes.Add ( e.Data.GetData ( DataFormats.Text ) ) End Sub
Kopieer en plak de volgende code om een " DragEnter " creëren
8 evenement voor de " TreeView " controle om te laten zien " DragDropEffects : "
Private Sub TreeView1_DragEnter ( ByVal afzender als System.Object , ByVal e als System.Windows.Forms.DragEventArgs ) Handles TreeView1.DragEnter
Als ( e.Data.GetDataPresent ( DataFormats.Text ) ) dan e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None < br End > Als End Sub
Druk op " F5 "
9 aan uw programma , en typ de tekst draaien in het tekstvak . Klik op het tekstvak en sleep met uw muis over om de " TreeView " controle, terwijl de muisknop ingedrukt houdt . Loslaten muisknop om nieuwe knooppunt toe te voegen .
|
