Visual Basic är ett programmeringsspråk publiceras av Microsoft för att göra det enklare för programmerare att utveckla applikationer för Windows operativsystem . Som ni kanske misstänker , stöder det lägger många funktioner gemensamma för Windows-program , inklusive " dra och släpp " -funktionalitet . " Dra och släpp " åtgärder fungerar på samma sätt som " kopiera och klistra " åtgärder , så långt som Visual Basic är berörda , och arbete genom en kombination av MoveMove , dragenter och dragdrop händelser . Instruktioner
1
Skapa ett nytt projekt genom att klicka på " File " och " Nytt projekt ".
2
Dubbelklicka på två " TextBox " kontroller från " Toolbox " fliken till lägga till dem i programmet .
3
Klicka på den andra textrutan . Klicka på " Egenskaper " på fliken och , inom den , klicka på knappen som ser ut som en blixt . Hitta " dragenter " raden och dubbelklicka på den . Detta kommer att skapa en " dragenter " metod som kommer att utföras när ett draget objekt kommer in i textrutan
4
Klistra in följande kod i metoden från föregående steg : .
E . effekt = DragDropEffects.Copy
Klicka på " Form.vb [ Design ] " fliken för att återgå till GUI ( Graphical User Interface ) Design.
5
Klicka på den andra textrutan igen och återgå till rekvisitan vyn . Klicka på blixt . Den här gången väljer du " dragdrop . " Här kommer du definiera vilka åtgärder som ska vidtas när texten tappas :
TextBox2.Text = e.Data.GetData ( DataFormats.Text )
6
Klicka på " Form . vb [ Design ] " fliken . Markera den första textrutan och välj " mouseDown " händelse :
MouseIsDown = Sant
Du kommer också att behöva klistra in följande precis under " public class Form1 " line :
Dim MouseIsDown = False
7
Klicka på " Form.vb [ Design ] " fliken för att återgå till GUI design vyn och hitta " MouseMove " egenskapen för den första textrutan . Dubbelklicka på den för att producera en " MouseMove " händelse . Klistra in följande :
om MouseIsDown Sedan
TextBox1.DoDragDrop ( TextBox1.Text , DragDropEffects.Copy ) katalog
slut om
MouseIsDown = False
Addera ditt
