Een treeviewcontrole in VB6 ( Visual Basic 6 ) geeft informatie weer in een hiërarchie . Een boomstructuur bestaat uit knooppunten die met elkaar verbonden in een aantal manieren. Windows Verkenner is een goed voorbeeld van TreeView weergeven van bestanden en mappen in een hiërarchische manier. Het knooppunt in TreeView controle kunnen andere nodes , genaamd bevatten " kind nodes . " U kunt bovenliggende knooppunten weergegeven als uitgevouwen of samengevouwen . Elk knooppunt heeft eigenschappen zoals " Parent ", " firstNode " en " Nodes . " U kunt elk knooppunt met behulp van een recursieve procedure in VB6 om het knooppunt naar het andere boomstructuur kopiëren halen . Wat je nodig hebt VB6 programma Toon Meer Aanwijzingen 1 Klik op " Start", " Alle programma's " en " Visual Basic 6 . " Klik op " File " en " Nieuw " om een nieuw project aan te maken . Voer een naam voor het project en selecteer een locatie voor het project bestanden . Klik op " Form1 " op het navigatiepaneel aan de linkerkant van het venster . Kopen van 2 Klik op " Tools" en " Button . " Klik op het lege gebied van de Form1 om de knop toe te voegen . Rechtermuisknop op het formulier 1 en voer de volgende code om een recursieve procedure die elk knooppunt herhaalt in de boomstructuur te maken: Private Sub IterateTreeNodes ( ByVal tNode Zoals TreeNode , ByVal rootNode Zoals TreeNode ) op Twitter Dim childNode Zoals TreeNode voor Elke childNode In tNode.Nodes Dim NewNode Zoals TreeNode = Nieuw TreeNode ( childNode.Text ) NewNode.Tag = childNode.Tag < br > Me.treeView2.SelectedNode = rootNode Me.treeView2.SelectedNode.Nodes.Add ( NewNode ) IterateTreeNodes ( childNode , NewNode ) op Twitter Volgende < br End > Sub 3 Dubbelklik op de knop en voer de volgende code op de knooppunten in TreeView1 kopiëren naar TreeView2 : Private Sub button1_Click ( ByVal afzender als Voorwerp , ByVal e als System.EventArgs ) op Twitter Dim t zoals TreeNode voor Elke tNode In Me.treeView1.Nodes Dim NewNode zoals TreeNode = Nieuw TreeNode ( tNode . tekst ) NewNode.Tag = originalNode.Tag Me.treeView2.Nodes.Add ( NewNode ) IterateTreeNodes ( tNode , NewNode ) op Twitter Volgende End Sub
|