Object Library. " Klikk "OK".
4 Dobbeltklikk skjemaet for å opprette en form belastning hendelsen og legge til følgende kode for å legge til tre noder til trevisningen
5
Dobbeltklikk på " Button1 " for å skape et klikk hendelsen for den knappen og legge til følgende kode for å opprette en ny Excel-fil og legge den valgte node teksten til "A1" : en
Dim xlTV som ny 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 ( " Ark1 ")
xlTVsht.Range ( "A1" ) . Verdi = TreeView1.SelectedNode.Text.ToString
xlTVsht.SaveAs ( "C : \\ dataFromTreeView.xlsx ")
6
Trykk " F5 " for å kjøre programmet og velg en node i trevisningen kontroll. Klikk " Button1 " for å lage Excel-filen .