Visual Basic ist eine Programmiersprache von Microsoft veröffentlicht , um es einfacher für Programmierer , um Anwendungen für das Windows-Betriebssystem zu entwickeln. Wie Sie vielleicht vermuten , unterstützt es um viele gemeinsame Merkmale mit Windows-Anwendungen , darunter die " Drag and Drop" -Funktionalität. " Drag & Drop "-Aktionen die gleiche Arbeit als "copy and paste "-Maßnahmen , so weit wie Visual Basic betroffen ist , und die Arbeit durch eine Kombination der MoveMove , DragEnter und DragDrop Veranstaltungen. Anleitung
1

Erstellen eines neuen Projekts durch Klick auf " Datei" und " New Project".
2

Doppelklick zwei " TextBox " -Steuerelemente aus der " Toolbox ", um fügen Sie sie in der Anwendung.
3

Klicken Sie auf das zweite Textfeld. Klicken Sie auf die Registerkarte "Eigenschaften" , und darin , klicken Sie auf die Schaltfläche, die wie ein Blitz aussieht. Finden Sie die " DragEnter " Reihe und doppelklicken Sie darauf. Dadurch wird eine " DragEnter "-Methode , die ausgeführt werden , wenn ein gezogenes Element in das Textfeld
4

Fügen Sie den folgenden Code innerhalb der Methode aus dem vorherigen Schritt werden : .

E . Effect = DragDropEffects.Copy

Klicken Sie auf " Form.vb [Entwurf] ", um auf die GUI (Graphical User Interface) Design-Ansicht zurückzukehren.
5

Klicken Sie das zweite Textfeld wieder und die Eigenschaften zurückzukehren. Klicken Sie auf den Blitz. Dieses Mal wählen Sie " DragDrop . " Hier legen Sie fest, die Maßnahmen zu ergreifen , wenn der Text gelöscht wird :

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

Klicken Sie auf die "Form . vb [Entwurf] "-Registerkarte. Wählen Sie das erste Textfeld und wählen Sie die " MouseDown " event:

MouseIsDown = True

Sie auch brauchen werden, um den folgenden knapp unter der " Public Class Form1 " Zeile einfügen :
< p > Dim MouseIsDown = False
7

klicken Sie auf " Form.vb [Entwurf] ", um auf die GUI-Design zurückzukehren und finden Sie das " MouseMove " -Eigenschaft für das erste Textfeld. Doppelklicken Sie darauf , um eine " MouseMove "-Ereignis zu erzeugen. Fügen Sie den folgenden :

wenn MouseIsDown Dann

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

end if

MouseIsDown = False