Visual Basic er et programmeringssprog udgivet af Microsoft til at gøre det lettere for programmører at udvikle applikationer til Windows-operativsystemet . Som du måske har mistanke om , det understøtter tilføjer mange fælles træk Windows-programmer , herunder " drag and drop" funktionalitet. " Træk og slip " handlinger fungerer på samme måde som " kopiere og indsætte " aktioner , så vidt Visual Basic er bekymret, og arbejde gennem en kombination af MoveMove , DragEnter og DragDrop begivenheder. Instruktioner
1

Opret et nyt projekt ved at klikke på "File " og " Nyt projekt ".
2

Dobbeltklik to " TextBox " kontrol fra " Toolbox " fanen for at føje dem til ansøgningen.
3

Klik på den anden tekstboks . Klik på "Egenskaber " fanen , og i det, skal du klikke på knappen , der ligner et lyn . Find " DragEnter " rækken, og dobbeltklik på den. Dette vil skabe en " DragEnter " metode, der vil blive udført , når et slæbt element ind i tekstfeltet
4

Indsæt følgende kode i metoden fra det foregående trin : .

E . effekt = DragDropEffects.Copy

Klik på " Form.vb [ design ] " fanen for at vende tilbage til den GUI ( Graphical User interface) design view.
5.

Klik på den anden tekstboks igen og vende tilbage til Properties visningen . Klik på lynet . Denne gang skal du vælge " DragDrop ". Her vil du definere de foranstaltninger, til at tage , når teksten er faldet : Hej

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

Klik på " Form . vb [ Design ] "fanen. Vælg den første tekstboks, og vælg " mouseDown " begivenhed : Hej

MouseIsDown = Sand

Du bliver også nødt til at indsætte følgende lige under "Public Class Form1 " linien : Hej

Dim MouseIsDown = False
7

Klik på " Form.vb [ design ] " fanen for at vende tilbage til den GUI design visning og finde " mouseMove " ejendom for første tekstfelt . Dobbeltklik på den for at producere en " mouseMove " begivenhed . Indsæt følgende : Hej

hvis MouseIsDown Så

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

end if

MouseIsDown = False < br >