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é