Visual Basic è un linguaggio di programmazione pubblicato da Microsoft per rendere più facile per i programmatori di sviluppare applicazioni per il sistema operativo Windows . Come si potrebbe sospettare , supporta l'aggiunta di molte caratteristiche comuni alle applicazioni Windows , tra cui la funzionalità di " trascinamento e" . "Drag and Drop " azioni funzionano come " copia e incolla" le azioni , per quanto Visual Basic è interessato, e il lavoro attraverso una combinazione di eventi MoveMove , DragEnter e DragDrop . Istruzioni
1

Creare un nuovo progetto facendo clic su "File" e " Nuovo progetto ".
2

doppio clic due controlli " TextBox " dalla scheda " Casella degli strumenti " a aggiungerli alla domanda.
3

fare clic sulla seconda casella di testo. Fare clic sulla scheda "Proprietà" e , all'interno di esso , fare clic sul pulsante che appare come un fulmine . Trovare la riga " DragEnter " e fare doppio clic su di esso . Questo creerà un metodo " DragEnter " che verrà eseguita ogni volta che un elemento trascinato entra nella textbox
4

Incollare il seguente codice all'interno del metodo del passaggio precedente : .

E. effetto = DragDropEffects.Copy

Clicca di nuovo il " Form.vb [ design] " scheda per tornare alla GUI ( Graphical User Interface) vista del design .

5 Fare clic sul secondo campo testo e tornare alla vista Proprietà. Clicca il fulmine . Questa volta , selezionare " DragDrop . " Qui , potrete definire le azioni da intraprendere quando il testo viene eliminato :

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

Clicca il "Modulo . vb " scheda [ design] . Selezionare la prima casella di testo e selezionare l'evento " MouseDown " :

MouseIsDown = True

Sarà inoltre necessario per incollare il seguente appena sotto la " Public Class Form1 " linea :
< p > Dim MouseIsDown = False
7

Fare clic su " Form.vb [ design] " scheda per tornare alla visualizzazione di progettazione grafica e di trovare la proprietà " MouseMove " per la prima casella di testo. Fare doppio clic su di esso per produrre un evento " MouseMove " . Incolla il seguente :

se MouseIsDown Poi

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

fine se

MouseIsDown = False < br >