Πώς να Σύρετε & Drop σε Visual Basic

Visual Basic είναι μια γλώσσα προγραμματισμού που δημοσιεύεται από τη Microsoft για να καταστεί ευκολότερο για τους προγραμματιστές να αναπτύξουν εφαρμογές για το λειτουργικό σύστημα των Windows . Όπως ίσως υποψιάζεστε , υποστηρίζει προσθέτοντας πολλά κοινά χαρακτηριστικά με τις εφαρμογές των Windows , όπως το "drag and drop " λειτουργικότητα . " Drag and drop " ενέργειες λειτουργούν με τον ίδιο ως « αντιγραφή και επικόλληση » δράσεις , όσο αφορά την Visual Basic , και να εργαστούν μέσω ενός συνδυασμού των γεγονότων MoveMove , DragEnter και DragDrop . Οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο κάνοντας κλικ στο " Αρχείο" και "New Project ". 2

διπλό κλικ δύο " TextBox " ελέγχων από την καρτέλα " Εργαλεία " στο προσθέστε τα στην εφαρμογή .
εικόνων 3

Κάντε κλικ στο δεύτερο πλαίσιο κειμένου . Κάντε κλικ στο " Ιδιότητες" καρτέλα και , στο πλαίσιο αυτό , κάντε κλικ στο κουμπί που μοιάζει με κεραυνό . Βρείτε το " DragEnter " σειρά και κάντε διπλό κλικ . Αυτό θα δημιουργήσει μια μέθοδο " DragEnter » που θα πραγματοποιηθεί κάθε φορά που ένα έσυραν στοιχείο εισέρχεται στη κειμένου
Η 4

Επικολλήστε τον ακόλουθο κώδικα στο πλαίσιο της μεθόδου από το προηγούμενο βήμα : .

E . επίδραση = DragDropEffects.Copy

Κάντε κλικ στο " Form.vb [ σχέδιο ] " καρτέλα για να επιστρέψετε στο GUI ( Graphical User Interface) προβολή σχεδίασης .
5

Κάντε κλικ στο δεύτερο κουτάκι και πάλι και να επιστρέψετε στην προβολή Properties . Κάντε κλικ τον κεραυνό . Αυτή τη φορά , επιλέξτε " DragDrop . " Εδώ , θα καθορίσει τις ενέργειες που πρέπει να κάνετε όταν το κείμενο έχει πέσει :

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

6 Κάντε κλικ στο "Form . vb [ Σχέδιο ] "καρτέλα . Επιλέξτε το πρώτο πλαίσιο κειμένου και επιλέξτε το " MouseDown " συμβάν :

MouseIsDown = True

Θα πρέπει επίσης να επικολλήσετε τα ακόλουθα ακριβώς κάτω από το "Δημόσια Τάξη Φόρμα1 " γραμμή :

Δημ. MouseIsDown = False
Η

7 Κάντε κλικ στο " Form.vb [ σχέδιο ] " καρτέλα για να επιστρέψετε στην προβολή σχεδίασης GUI και να βρει το " MouseMove " ιδιοκτησίας για την πρώτη κειμένου . Κάντε διπλό κλικ για να παράγει μια " MouseMove " εκδήλωση . Επικολλήστε το ακόλουθο κείμενο :

αν MouseIsDown Τότε

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

τέλος, αν

MouseIsDown = False


Η