? Glisser-déposer à partir d'une " zone de texte " dans un contrôle " TreeView " dans votre application Visual Basic.NET peut facilement être accompli en utilisant quelques propriétés d'événement de souris . Vous pouvez utiliser l'événement " MouseDown " à suivre lorsque l'utilisateur clique sur le contrôle " TextBox " . Utilisez l'événement " MouseMove " pour exécuter du code lorsque l'utilisateur se déplace la souris sur le contrôle " TreeView " . Utilisez la fonction " DragEnter " et " événements DragDrop " dans le champ " TreeView " pour détecter lorsque la souris entre et descend l'information. Choses que vous devez
Microsoft Visual Studio
Voir Plus Instructions
1

Lancement de Microsoft Visual Studio, cliquez sur " Nouveau Projet" dans le volet gauche de l'écran de votre ordinateur, et étendre " Modèles installés . " " Visual Basic " ci-dessous Cliquez sur "Windows" et double-cliquez sur "Application Windows Forms " du centre de la fenêtre de dialogue pour créer un nouveau projet.
2

Double -cliquez sur " TreeView " pour ajouter une nouvelle vue arbre de commande votre formulaire. Double -cliquez sur " TextBox " pour ajouter une nouvelle zone de texte à votre formulaire.
3

un clic droit sur la zone de texte , puis cliquez sur "Propriétés" pour afficher la fenêtre des propriétés. Cliquez sur l'icône "Evénements" qui ressemble à un coup de foudre , et double-cliquez à côté de " MouseDown " pour créer un nouvel événement.
4

Ajoutez le code suivant en dessous " Public Class Form1 " pour créer un variable globale :

mouseDown privé As Boolean = False
5

l'intérieur de l' événement " mouseDown " ajouter la ligne de code suivante pour définir la variable globale " vrai: "

mouseDown = True
6

Copiez et collez le code suivant pour créer un événement " MouseMove " pour le contrôle de zone de texte, et d'initier glisser:

Private Sub TextBox1_MouseMove ( ByVal expéditeur As Object , ByVal e Comme System.Windows.Forms.MouseEventArgs ) Poignées TextBox1.MouseMove

Si mouseDown Puis

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

mouseDown = False

End Sub
7

Copiez et collez le code suivant pour créer un événement " glisser-déplacer " pour le contrôle " TreeView " , et d'ajouter un nouveau nœud en utilisant les informations dans le contrôle de zone de texte :

TreeView1_DragDrop Private Sub ( sender As Object , ByVal e Comme System.Windows.Forms.DragEventArgs ) Poignées TreeView1.DragDrop
< p > Me.TreeView1.Nodes.Add ( e.Data.GetData ( DataFormats.Text ) )

End Sub
8

Copiez et collez le code suivant pour créer un " DragEnter " événement pour le contrôle " TreeView " pour voir " DragDropEffects : "

Private Sub TreeView1_DragEnter ( expéditeur de ByVal comme System.Object , ByVal e As System.Windows.Forms.DragEventArgs ) Poignées TreeView1.DragEnter
< p > Si ( e.Data.GetDataPresent ( DataFormats.Text ) ) Alors

e.Effect = DragDropEffects.Copy

Else

e.Effect = DragDropEffects.None < br >

End If End Sub

9

Appuyez sur " F5 " pour exécuter votre programme, et tapez le texte dans la zone de texte . Cliquez sur la zone de texte , puis faites glisser votre souris sur la commande " TreeView " tout en maintenant le bouton de la souris . Relâchez le bouton de la souris pour ajouter nouveau nœud.