2
A
回答
0
使用遞歸函數,例如
Public Class Form1
Sub New()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
TreeView1.Nodes.Add("Animal")
TreeView1.Nodes(0).Nodes.Add("Reptile")
TreeView1.Nodes(0).Nodes(0).Nodes.Add("Dragon")
TreeView1.Nodes(0).Nodes(0).Nodes.Add("Lizard")
TreeView1.Nodes(0).Nodes.Add("Mammal")
TreeView1.Nodes(0).Nodes(1).Nodes.Add("Cat")
TreeView1.Nodes(0).Nodes(1).Nodes.Add("Dog")
TreeView1.Nodes.Add("Vegetable")
TreeView1.Nodes(1).Nodes.Add("Fruit")
TreeView1.Nodes(1).Nodes(0).Nodes.Add("Apple")
TreeView1.Nodes(1).Nodes(0).Nodes.Add("Orange")
TreeView1.Nodes(1).Nodes(0).Nodes.Add("Pear")
TreeView1.Nodes(1).Nodes.Add("Aubergine")
TreeView1.Nodes(1).Nodes.Add("Carrot")
TreeView1.Nodes(1).Nodes.Add("Cucumber")
TreeView1.Nodes(1).Nodes.Add("Zucchini")
TreeView1.Nodes.Add("Mineral")
TreeView1.Nodes(2).Nodes.Add("Granite")
TreeView1.Nodes(2).Nodes.Add("Quartz")
TreeView1.Nodes(2).Nodes.Add("Topaz")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Multiline = True
TextBox1.Height = 200
TextBox1.Width = 200
TextBox1.Text = WriteTreeView("", TreeView1.Nodes)
End Sub
Private Function WriteTreeView(ByVal parent As String, ByVal tnc As TreeNodeCollection) As String
Dim strOutput As String = ""
If tnc.Count = 0 Then
strOutput = parent & vbCrLf 'leaf
Else
For i As Integer = 0 To tnc.Count - 1
Dim strCurrent As String = ""
If parent > "" Then strCurrent = parent & "."
strCurrent &= tnc(i).Text
strOutput &= WriteTreeView(strCurrent, tnc(i).Nodes)
Next i
End If
Return strOutput
End Function
End Class
相關問題
- 1. 將頁面另存爲XML
- 2. 將XML轉換爲TXT
- 3. 將TreeView作爲xml保存爲屬性和元素
- 4. 如何將treeview轉換爲xml?
- 5. 將Web服務響應另存爲XML
- 6. 用PHP標題強制「另存爲」或「將鏈接另存爲」
- 7. 的Python解析XML並保存爲txt
- 8. 在VBA或Visual Studio中,如何將TXT轉換爲XML?
- 9. 跨瀏覽器另存爲.txt
- 10. 將XML文件讀入TreeView
- 11. 如何將.txt轉換爲XML
- 12. 將XML值替換爲.txt列表
- 13. 如何將txt文件轉換爲xml?
- 14. 在python中將txt文件另存爲二進制
- 15. 將變量另存爲txt,但不在服務器中
- 16. QTableView輸出保存爲.csv或.txt
- 17. 將.xlsx保存爲.csv或.txt從Access VBA
- 18. 如何將MySQL查詢輸出保存爲excel或.txt文件?
- 19. 如何將.txt保存爲VBA中的Unicode或UTF-8
- 20. 將不相等的輸出保存爲csv或txt文件
- 21. 如何將BLOB保存爲可讀文件,如.txt或.jpg?
- 22. Multibind XML TreeView
- 23. JavaScript將元素另存爲圖像或Extjs 4.x另存爲圖像
- 24. Treeview保存/加載到xml太慢
- 25. 將打印輸出保存爲.txt
- 26. C++ - 使用fstream將txt保存爲html
- 27. 將ObservableCollection保存爲文件(.txt)
- 28. 保存爲txt(java)
- 29. JS:將XML或JSON轉換爲XML/RDF
- 30. 從文件txt或xml讀取值