|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur Kopiera TreeView i VB6

    En TreeView kontroll i VB6 ( Visual Basic 6 ) visar information i en hierarki . En trädvy består av noder som är relaterade till varandra på något sätt . Windows Explorer är ett bra exempel på TreeView visa filer och mappar på ett hierarkiskt sätt . Noden i trädvy kontroll kan innehålla andra noder , kallade " underordnade noder . " Du kan visa överordnade noder som expanderat eller kollapsat . Varje nod har egenskaper såsom " Förälder ", " FirstNode " och " noder ". Du kan hämta varje nod med en iterativ procedur i VB6 att kopiera nod till en annan trädvy . Saker du behöver
    VB6 program
    Visa fler instruktioner
    1

    Klicka på "Start ", " Alla program " och " Visual Basic 6 . " Klicka på " File " och " New " för att skapa ett nytt projekt . Ange ett namn för projektet och välj en plats för projektet filer . Klicka på " Form1 " på navigeringsfönstret på den vänstra delen av fönstret .
    2

    Klicka på " Verktyg " och " Knapp ". Klicka på tomt område i Form1 lägga till knappen . Högerklicka på formulär 1 och ange följande kod för att skapa en rekursiv procedur som itererar varje nod i trädvyn :

    Private Sub IterateTreeNodes ( ByVal tNode Som TreeNode , ByVal rootNode Som TreeNode ) katalog

    Dim childNode Som TreeNode

    For Each childNode I tNode.Nodes

    Dim NewNode Som TreeNode = Ny TreeNode ( childNode.Text ) katalog

    NewNode.Tag = childNode.Tag

    Me.treeView2.SelectedNode = rootNode

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

    IterateTreeNodes ( childNode , NewNode ) katalog

    Nästa

    End Sub
    3

    Dubbelklicka på knappen och skriv in följande kod att kopiera noder i TreeView1 till TreeView2 :

    Private Sub button1_Click ( ByVal avsändare som Object , ByVal e som System.EventArgs ) katalog

    Dim t som TreeNode

    För varje tNode I Me.treeView1.Nodes

    Dim NewNode som TreeNode = Ny TreeNode ( tNode . Text ) katalog

    NewNode.Tag = originalNode.Tag

    Me.treeView2.Nodes.Add ( NewNode ) katalog

    IterateTreeNodes ( tNode , NewNode ) katalog

    Nästa

    End Sub

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man använder Itemcheck Event i Visual Basic
    ·VBA-programmering Theory
    ·Hur man spelar ljudfil i Visual Basic
    ·Hur koden med versaler i VB.Net
    ·Hur man skapar en Array i Visual Basic
    ·Hur man läser miljövariabler i VB6
    ·Hur man skall fördela en VBS Dataset
    ·Hur du distribuerar Windows CE Ansökan
    ·Hur skapar jag en länk till en extern kalkylblad Via V…
    ·Hur Mine /Utdrag /hämta data från webbläsaren i Visu…
    Utvalda artiklarna
    ·Hur man tar bort en Space Från en variabel i Javascrip…
    ·Hur du använder Thrift Med PHP
    ·Vad är bra program för att på Visual Basic
    ·Hur man skapar en MySQL Server på CentOS 2010
    ·Hur man kan få ett VBA löpande registreringsnummer Sö…
    ·Hur Offset en fråga i MySQL
    ·Hur man installerar Java
    ·Så här importerar Ruby Klasser
    ·Hur man byter Streck i Visual Basic
    ·Hur hittar färgerna i en digital bild med hjälp av VB…
    Copyright © Dator Kunskap http://www.dator.xyz