Bibliotek number> Object . " Klicka på " OK . "
4 Dubbelklicka på formuläret för att skapa en händelse formulär belastning och lägg till följande kod för att lägga till tre noder i trädvyn
5
Dubbelklicka på " Button1 " för att skapa en click-händelse för knappen och lägg till följande kod för att skapa en ny Excel- fil och lägga till den valda noden texten till " A1 " :
Dim xlTV Som Nya Excel.Application
xlTV.Visible = TRUE
Dim xlTVwks Som Excel.Workbooks = xlTV.Workbooks
Dim xlTVwk Som Excel.Workbook = xlTVwks.Add
Dim xlTVshts Som Excel.Sheets = xlTVwk.Worksheets
Dim xlTVsht Som Excel.Worksheet = xlTVshts ( " Blad1 " ) katalog
xlTVsht.Range ( " A1 " ) . Value = TreeView1.SelectedNode.Text.ToString
xlTVsht.SaveAs ( " C : \\ dataFromTreeView.xlsx " )
6
Tryck " F5 " för att köra programmet och välj en nod i trädvyn . Klicka " Button1 " för att skapa Excel-filen .