|
Visual Basic est un langage de programmation publié par Microsoft pour rendre plus facile pour les programmeurs de développer des applications pour le système d'exploitation Windows. Comme vous vous en doutez , il prend en charge l'ajout de nombreuses caractéristiques communes aux applications Windows , y compris la fonctionnalité « drag and drop ». "Drag and Drop " actions fonctionnent de la même chose que « copier-coller» des actions , pour autant que Visual Basic est concernée, et le travail par une combinaison des événements MoveMove , DragEnter et DragDrop . Instructions
1 Créez un nouveau projet en cliquant sur " Fichier" et "Nouveau projet ".
2 Double cliquez deux contrôles " TextBox " à partir de l'onglet «boîte à outils » pour ajoutez-les à la demande .
3 Cliquez sur la deuxième zone de texte. Cliquez sur l'onglet " Propriétés" et , en son sein , cliquez sur le bouton qui ressemble à un éclair . Trouvez la ligne " DragEnter " et double cliquez dessus. Cela va créer une méthode de " DragEnter " qui sera exécutée chaque fois qu'un élément glissé entre dans la zone de texte
4 Collez le code suivant dans la méthode de l'étape précédente : .
E . effet = DragDropEffects.Copy
Cliquez sur le " Form.vb [Design] " onglet pour revenir à l' ( Graphical User Interface ) vue de la conception graphique.
5 Cliquez sur la deuxième zone de texte à nouveau et revenir à la vue Propriétés. Cliquez sur l' éclair. Cette fois, sélectionnez " glisser-déplacer ". Ici, vous allez définir les mesures à prendre lorsque le texte est lâché :
TextBox2.Text = e.Data.GetData ( DataFormats.Text )
6 Cliquez sur le "Form . vb onglet [Design] " . Sélectionnez la première zone de texte et sélectionnez l'option " MouseDown " événement :
MouseIsDown = True
Vous aurez aussi besoin de coller les lignes suivantes juste sous le " Public Class Form1 « ligne :
Dim MouseIsDown = False
7 Cliquez sur le " Form.vb [Design] onglet" pour revenir à la vue de conception graphique et trouver la propriété " MouseMove " pour la première zone de texte. Double-cliquez dessus pour produire un événement " MouseMove " . Collez le texte suivant :
si MouseIsDown Puis
TextBox1.DoDragDrop ( TextBox1.Text , DragDropEffects.Copy )
fin si
MouseIsDown = false < br >
|
