Object Library . " Klik op "OK . "
4 Dubbelklik op het formulier om een formulier load gebeurtenis te maken en voeg de volgende code toe aan drie nodes toe te voegen aan de boomstructuur Goedkope 5
Dubbelklik op " Button1 " naar een gebeurtenis click voor de knop en voeg de volgende code naar een nieuw Excel- bestand te maken en voeg de geselecteerde node tekst op " A1 " :
Dim xlTV Als Nieuw Excel.Application
xlTV.Visible = True
Dim xlTVwks
Zoals Excel.Workbooks = xlTV.Workbooks
Dim xlTVwk
Zoals Excel.Workbook = xlTVwks.Add < br
Dim xlTVshts > Zoals Excel.Sheets = xlTVwk.Worksheets
Dim xlTVsht
Zoals Excel.Worksheet = xlTVshts ( " Blad1 " )
xlTVsht.Range
( " A1 " ) . Value = TreeView1.SelectedNode.Text.ToString
xlTVsht.SaveAs
( " C : \\ dataFromTreeView.xlsx " ) op Twitter
Druk op " F5 " 6 om het programma uit te voeren en selecteer een knooppunt in de boomstructuur . Klik op " Button1 " om het Excel- bestand te maken .