|
? 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
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
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.
|
