Visual Basic er et programmeringsspråk utgitt av Microsoft for å gjøre det enklere for programmerere å utvikle applikasjoner for Windows -operativsystemet . Som du kanskje har mistanke om , støtter det å legge mange funksjoner som er felles for Windows-programmer , inkludert " drag and drop" funksjonalitet. " Dra og slipp " handlinger fungerer på samme måte som " kopier og lim " handlinger , så langt som Visual Basic er opptatt av, og arbeid gjennom en kombinasjon av MoveMove , DragEnter og dragdrop hendelser . Instruksjoner
en

Lag et nytt prosjekt ved å klikke på "File" og "New Project ".
2

Dobbelklikk to " TextBox "-kontroller fra " Toolbox "-kategorien til legge dem til søknaden.
3

Klikk den andre tekstboksen . Klikk på " Properties "-kategorien , og innen det , klikker du på knappen som ser ut som et lyn . Finn " DragEnter " rad og dobbeltklikke på den . Dette vil skape en " DragEnter " metode som vil bli utført når en dratt elementet kommer inn i tekstboksen
4

Lim inn følgende kode i metoden fra forrige trinn : .

E . effekt = DragDropEffects.Copy

Klikk på " Form.vb [Design ] " for å gå tilbake til GUI ( Graphical User Interface) design-visning.
5

Klikk den andre tekstboksen igjen og gå tilbake til Properties visning. Klikk på lyn . Denne gangen velger du " dragdrop . " Her vil du definere hvilke handlinger som skal utføres når teksten er droppet : en

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

Klikk på " Form . vb [Design ] "-kategorien . Velg den første tekstboksen og velg " mousedown " hendelse : en

MouseIsDown = sant

Du må også lim inn følgende rett under "Public Class Form1 " linje:
< p > Dim MouseIsDown = False
7

Klikk på " Form.vb [Design ] " for å gå tilbake til GUI design-visning og finne " mouseMove " eiendom for den første tekstboksen . Dobbeltklikk på det å produsere en " mouseMove " hendelse . Lim inn følgende : en

hvis MouseIsDown Deretter

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

slutten hvis

MouseIsDown = False