Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Vytvorte nový projekt kliknutím na tlačidlo " Súbor " a " Nový projekt " . 
 2 
 dvakrát kliknite na dvoch " textové pole " kontroly zo záložke " Toolbox " na pridať do aplikácie . 
 3 
 Kliknite na druhé textové pole . Kliknite na " Vlastnosti " kartu a počas neho , kliknite na tlačidlo , ktoré vyzerá ako blesk . Nájsť " DragEnter " riadok a dvakrát na neho kliknite . Tým sa vytvorí metódu " DragEnter " , ktorá bude vykonaná vždy , keď pretiahnutá položka vstúpi do textového poľa 
 4 
 Vložte nasledujúci kód v metóde z predchádzajúceho kroku : . 
 
 E. vplyv = DragDropEffects.Copy 
 
 Kliknite na " Form.vb [ design ] " kartu vrátiť do GUI ( Graphical User Interface ) zobrazenie návrhu . 
 5 
 Kliknite na druhú textového poľa znova a vráťte sa do pohľadu Vlastnosti . Kliknite na blesk . Tentoraz zvoľte " dragdrop . " Tu sa môžete definovať akcie , ktoré berú , keď je text spadol : 
 
 TextBox2.Text = e.Data.GetData ( DataFormats.Text ) 
 6 
 Kliknite na " Form . vb [ design ] " tab . Vyberte prvú textové pole a vyberte " MouseDown " udalosť : 
 
 MouseIsDown = TRUE 
 
 Budete tiež musieť vložiť nasledujúce tesne pod " Public Class Form1 " línia : 
 
 Dim MouseIsDown = False 
 7 
 Kliknite na " Form.vb [ design ] " kartu sa vrátite do zobrazenia GUI designu a nájsť " MouseMove " vlastnosť prvého textového poľa . Double - kliknite na to , aby produkovať " MouseMove " udalosť . Vložte nasledujúci : 
 
 ak MouseIsDown Potom 
 
 TextBox1.DoDragDrop ( TextBox1.Text , DragDropEffects.Copy ) 
 
 end if 
 
 MouseIsDown = False 
 
              
Copyright © počítačové znalosti Všetky práva vyhradené