Maak een nieuw project door te klikken op " File " en " New Project . " Kopen van 2

Dubbelklik twee " TextBox " controles uit op het tabblad " Toolbox " aan voeg ze toe aan de applicatie .
3

Klik op het tweede tekstvak . Klik op het tabblad " Eigenschappen" en , daarbinnen , klikt u op de knop die eruit ziet als een bliksemschicht . Zoek de " DragEnter " rij en dubbelklik erop . .

E
: dit zal een " DragEnter " methode die zal worden uitgevoerd als een gesleepte item komt het tekstvak
4

Plak de volgende code in de methode van de vorige stap te maken . effect = DragDropEffects.Copy

Klik op de " Form.vb [Design ] " tab om terug te keren naar de GUI ( Graphical User Interface ) ontwerpmening .

Klik 5 het tweede tekstvak weer en terug te keren naar de weergave Eigenschappen. Klik op de bliksemschicht . Deze keer , selecteert u " DragDrop . " Hier vindt u de acties te definiëren om te nemen wanneer de tekst wordt neergezet :

TextBox2.Text = e.Data.GetData ( DataFormats.Text )
6

Klik op de "Form . vb " tabblad [Design ] . Selecteer het eerste tekstvak en selecteer de " MouseDown " event : MouseIsDown

= True

Je moet ook aan de volgende plak net onder de "Public Class Form1 " lijn :

Dim MouseIsDown = False
7

Klik op de " Form.vb [Design ] " tab om terug te keren naar de GUI ontwerp uitzicht en vind de " MouseMove " onroerend goed voor het eerste tekstvak . Dubbelklik op het bestand om een " MouseMove " evenement te produceren . Plak de volgende :

als MouseIsDown Dan

TextBox1.DoDragDrop
( TextBox1.Text , DragDropEffects.Copy )

einde
als

MouseIsDown
= False < br >