1 Κάντε κλικ στο κουμπί " Έναρξη " των Windows και κάντε κλικ στο "Microsoft Basic 2005 . Visual " 2
Κάντε κλικ στο " Toolbox" στο ανοιχτό παράθυρο για να προσθέσετε ένα στοιχείο ελέγχου πλαισίου λίστας στην προεπιλεγμένη " Φόρμα1 " μορφή .
εικόνων 3
Αλλάξτε το " AllowDrop " ιδιότητα του στοιχείου ελέγχου πλαισίου λίστας σε "True " στο παράθυρο "Ιδιότητες" για να επιτρέψει αντικείμενα να συρθεί επάνω τον έλεγχο .
Η 4
δεξί κλικ στο " Form1 " και στη συνέχεια κάντε κλικ στο " Προβολή κώδικα " σε
5
Προσθέστε τον ακόλουθο κώδικα κάτω από την κατηγορία Φόρμα1 " Solution Explorer". :
Private Sub ListBox1_DragEnter ( ByVal αποστολέα ως αντικείμενο, _
ByVal e Όπως
System.Windows.Forms.DragEventArgs ) _
Λαβές ListBox1.DragEnter
Αν ( e.Data.GetDataPresent ( DataFormats.FileDrop ) ) Στη συνέχεια
e.Effect = DragDropEffects.All
Else
e.Effect = DragDropEffects . Κανένα
End If
End Sub
Η 6
Προσθέστε τον ακόλουθο κώδικα στην κλάση Φόρμα1 :
Private Sub ListBox1_DragDrop ( ByVal αποστολέα Όπως αντικείμενο , _
ByVal e Όπως
System.Windows.Forms.DragEventArgs ) _
Λαβές ListBox1.DragDrop
Dim s ( ) As String = e.Data.GetData ( " FileDrop " , False )
Dim i As Integer
Για i = 0 Για να s.Length - 1
ListBox1.Items.Add ( s ( i ) )
Επόμενο i
End Sub
να χειριστεί την απελευθέρωση του drag εκδήλωση .
Η 7
Κάντε κλικ στο " Αρχείο" και στη συνέχεια κάντε κλικ στο κουμπί " Αποθήκευση" για να ενεργοποιήσετε τη λειτουργία drag - n-drop για τη μορφή των Windows στο Visual Basic πρόγραμμα του 2005 .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα