Πώς να δημιουργήσετε το Click & Drag αντικείμενα σε Visual Basic

Κάνοντας κλικ και σύροντας τα αντικείμενα με το ποντίκι σε ένα πρόγραμμα που έχετε δημιουργήσει παρέχει στους χρήστες σας με μεγαλύτερη ευελιξία . Σε μια εφαρμογή της Visual Basic , οι χρήστες συχνά πρέπει να προσθέσετε αντικείμενα, όπως μονοπάτια και ονόματα αρχείων σε ένα στοιχείο ελέγχου πλαισίου λίστας . Χρησιμοποιήστε ένα συνδυασμό « DragDrop " και " DragEnter " για να χειριστεί αντικείμενα κατά τη διάρκεια μιας λειτουργίας drag -and- drop . Η " DragEnter " συμβάν προκύπτει, όταν ο κέρσορας του ποντικιού εισέρχεται τον έλεγχο , και το " DragDrop " εκδήλωση χρησιμοποιείται για να χειριστεί τα αντικείμενα σέρνεται . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic Express
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

την εφαρμογή Microsoft Visual Basic Express , κάντε κλικ στο " New Project ... " από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας και επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2

διπλό κλικ στο " πλαίσιο λίστας " από το " Toolbox" παράθυρο για να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου λίστας στη φόρμα . Κάντε δεξιό κλικ στο στοιχείο ελέγχου πλαισίου λίστας και κάντε κλικ στο "Ιδιότητες". Επιλέξτε το " True" δίπλα στο " AllowDrop " περιουσία .
Εικόνων 3

Κάντε διπλό κλικ στο πλαίσιο λίστας για να ανοίξετε τη μονάδα " Form1.vb " . Κάντε κλικ στο " Event" αναπτυσσόμενο πλαίσιο και κάντε κλικ στο " DragDrop " για να δημιουργήσετε ένα νέο συμβάν .
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VB μέσα στο " DragDrop " εκδήλωση για να προσθέσετε τις διαδρομές αρχείων και τα ονόματα στο στοιχείο ελέγχου πλαισίου λίστας :

Dim myCompFiles Όπως String ( ) = ctype ( e.Data.GetData ( DataFormats.FileDrop ) , String ( ) )

For Each fileFound As String σε myCompFiles

Me.ListBox1.Items.Add ( fileFound )

Επόμενο
5

Κάντε κλικ στο " Event" αναπτυσσόμενο πλαίσιο και κάντε κλικ στο " DragEnter " για να δημιουργήσετε ένα νέο εκδήλωση . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VB μέσα στο " DragEnter " συμβάν :

Εάν e.Data.GetDataPresent ( DataFormats.FileDrop ) Στη συνέχεια

e.Effect = DragDropEffects.Copy

End If

6

ΔΥΑ " F5 " για να εκτελέσετε το πρόγραμμα . Άνοιγμα " Εξερεύνηση των Windows " πατώντας το πλήκτρο των Windows και "Ε" Κάντε κλικ σε ένα αρχείο και σύρετε το αρχείο πάνω στο πλαίσιο λίστας στο πρόγραμμά σας , ενώ κρατώντας πατημένο το κουμπί του ποντικιού .
Η
εικόνων