主题：求一个目录树最长节点的代码，

 要找最长节点。

 

方法一：循环所有的节点，得出最长的一个；

 

方法二：直接查找表数据，得到最长的那个

 Dim max As integer = 0

 

 If nd.Text.Length > max Then max = nd.Text.Length

Dim trv7 As WinForm.TreeView = Forms("companyinformation").Controls("TreeView1")
Dim max As String = ""

For Each nd As WinForm.TreeNode In trv7.AllNodes '遍历所有节点
 If nd.text.Length > max.length Then max = nd.Text
Next

msgbox(max)

 只有一句代码的时候，可以写在一行里。不过不建议这样写。