την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας , και επεκτείνουν " Visual Basic " κάτω " εγκατεστημένα πρότυπα . " Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Windows Forms Application " από το κέντρο του παραθύρου διαλόγου για να δημιουργήσετε ένα νέο έργο . 2
διπλό κλικ στο " TreeView " για να προσθέσετε ένα νέο στοιχείο ελέγχου προβολή δέντρου για να φόρμα σας . Κάντε διπλό κλικ στο " πλαίσιο κειμένου " για να προσθέσετε ένα νέο πλαίσιο κειμένου στη φόρμα σας .
Εικόνων 3
δεξιό κλικ στο πλαίσιο κειμένου και κάντε κλικ στο " Ιδιότητες" για να δείτε το παράθυρο ιδιοτήτων . Κάντε κλικ στο εικονίδιο " Events" , που μοιάζει με μια απεργία φωτισμού , και κάντε διπλό κλικ δίπλα στο " MouseDown " για να δημιουργήσετε ένα νέο συμβάν .
Η 4
Προσθέστε τον ακόλουθο κώδικα παρακάτω "Δημόσια Τάξη Form1 " για να δημιουργήσετε ένα καθολικές μεταβλητές :
Private mouseDown Όπως Boolean = False
5
Μέσα από το " MouseDown " εκδήλωση προσθέστε την ακόλουθη γραμμή κώδικα για να ρυθμίσετε την παγκόσμια μεταβλητή "True : "
mouseDown = True
Η 6
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε ένα " MouseMove " εκδήλωση για το στοιχείο ελέγχου πλαισίου κειμένου , και να δρομολογεί σύροντας :
Private Sub TextBox1_MouseMove ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.Windows.Forms.MouseEventArgs ) Λαβές TextBox1.MouseMove
Εάν mouseDown τότε
TextBox1.DoDragDrop ( TextBox1.Text , DragDropEffects.Copy )
End If
mouseDown = False
End Sub
Η 7
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε ένα " DragDrop » εκδήλωση για την " TreeView " ελέγχου , και να προσθέσετε ένα νέο κόμβο χρησιμοποιώντας τις πληροφορίες στο στοιχείο ελέγχου πλαισίου κειμένου :
Private Sub TreeView1_DragDrop ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.Windows.Forms.DragEventArgs ) Λαβές TreeView1.DragDrop
Me.TreeView1.Nodes.Add ( e.Data.GetData ( DataFormats.Text ) )
End Sub
8
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε ένα " DragEnter " εκδήλωση για την " TreeView " ελέγχου για να δείξει " DragDropEffects : "
Private Sub TreeView1_DragEnter ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.Windows.Forms.DragEventArgs ) Λαβές TreeView1.DragEnter
Αν ( e.Data.GetDataPresent ( DataFormats.Text ) ) Στη συνέχεια
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
Η
9 Πατήστε το πλήκτρο " F5 " για να τρέξετε το πρόγραμμά σας , και πληκτρολογήστε το κείμενο στο πλαίσιο κειμένου . Κάντε κλικ στο πλαίσιο κειμένου και σύρετε το ποντίκι σας πάνω στο " TreeView " ελέγχου, ενώ κρατώντας πατημένο το κουμπί του ποντικιού . Απελευθερώστε το κουμπί του ποντικιού για να προσθέσετε νέο κόμβο .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα