Πώς να αντιγράψει TreeView σε VB6

A Ελέγχου TreeView σε VB6 ( Visual Basic 6 ) εμφανίζει πληροφορίες σε μια ιεραρχία . Μια treeview αποτελείται από κόμβους που συνδέονται μεταξύ τους με κάποιους τρόπους. Εξερεύνηση των Windows είναι ένα καλό παράδειγμα της TreeView εμφάνιση αρχείων και φακέλων σε ένα ιεραρχικό τρόπο . Ο κόμβος σε TreeView ελέγχου μπορεί να περιέχουν άλλους κόμβους , που ονομάζεται « κόμβους του παιδιού . " Μπορείτε να εμφανίσετε μητρική κόμβους , όπως διευρύνθηκε, ή κατέρρευσε . Κάθε κόμβος έχει ιδιότητες , όπως η "μητρική ", " FirstNode » και « Κόμβοι ». Μπορείτε να ανακτήσετε κάθε κόμβος χρησιμοποιεί μια επαναληπτική διαδικασία σε VB6 για να αντιγράψετε τον κόμβο σε ένα άλλο treeview . Τα πράγματα που θα χρειαστείτε
πρόγραμμα VB6

Παρουσίαση Περισσότερες οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη", " Όλα τα προγράμματα " και " Visual Basic 6 . " Κάντε κλικ στο " Αρχείο" και " Νέο" για να δημιουργήσετε ένα νέο έργο . Πληκτρολογήστε ένα όνομα για το έργο και επιλέξτε μια θέση για τα αρχεία του έργου . Κάντε κλικ στο " Φόρμα1 " στο παράθυρο περιήγησης στα αριστερά τμήμα του παραθύρου . 2

Κάντε κλικ στο " Εργαλεία" και " κουμπί . " Κάντε κλικ στην κενή περιοχή της Φόρμα1 να προσθέσετε το κουμπί . Κάντε δεξί κλικ στο Έντυπο 1 και εισάγετε τον παρακάτω κώδικα για να δημιουργήσετε μια επαναληπτική διαδικασία η οποία επαναλαμβάνεται κάθε κόμβο στο treeview :

Private Sub IterateTreeNodes ( ByVal tNode Όπως TreeNode , ByVal rootNode Όπως TreeNode )

Dim childNode Όπως TreeNode

Για Κάθε childNode Σε tNode.Nodes

Dim NewNode Όπως TreeNode = Νέα TreeNode ( childNode.Text )

NewNode.Tag = childNode.Tag

Me.treeView2.SelectedNode = rootNode

Me.treeView2.SelectedNode.Nodes.Add ( NewNode )

IterateTreeNodes ( childNode , NewNode )

Επόμενο

End Sub
εικόνων 3

διπλό κλικ στο κουμπί και εισάγετε τον παρακάτω κώδικα για να αντιγράψετε τους κόμβους σε TreeView1 να TreeView2 :

Private Sub button1_Click ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.EventArgs )

Dim t Όπως TreeNode

For Each tNode Σε Me.treeView1.Nodes

Dim NewNode Όπως TreeNode = Νέα TreeNode ( tNode . κειμένου)

NewNode.Tag = originalNode.Tag

Me.treeView2.Nodes.Add ( NewNode )

IterateTreeNodes ( tNode , NewNode )

Επόμενη

End Sub
Η
εικόνων