Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako Drag & Drop vo Visual Basic

Visual Basic je programovací jazyk publikuje spoločnosť Microsoft , aby bolo jednoduchšie pre programátorov pre vývoj aplikácií pre operačný systém Windows . Ako ste si možno podozrenie , že podporuje pridávanie mnoho rysov spoločných pre aplikácie systému Windows , vrátane " drag and drop " funkcie . " Drag and drop " akcia funguje rovnako ako funkcia " kopírovať a vložiť " akcie , ako čo sa týka jazyka , a pôsobí prostredníctvom kombinácie MoveMove , DragEnter a DragDrop udalostí . Pokyny dovolená 1

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

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené