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

先问个别的问题，目录树控件的宽度有没有直接自适应最长节点的字符的简单代码，求一个。

 要找最长节点。

 

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

 

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

Dim trv7 As WinForm.TreeView = Forms("companyinformation").Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv7.AllNodes '遍历所有节点
Dim a As String = nd.text
Dim b As Integer = nd.text.length

     ‘’messagebox.show(b) ''.
Next

 

 

怎么找到最长的节点length不会写啦。直接得出来最长的长度。怎么写

 Dim max As integer = 0

 

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

此主题相关图片如下：69.png

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)

弄好了，不过这个IF THEN连在一起写好像没见过。。。

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

楼主是想要达到这个效果吗? http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=21386&authorid=0&page=0&star=1

谢谢程版，我还没开始写功能呢，只是一个没必要的功能

让目录树随着最长的节点的长度变宽

因为代码能力有限现在已经用最简单的代码实现了，不太完美，放在窗口加载中估计会影响窗口打开速度，放在窗口控件中，会明显导致右边延迟，不如直接用手拖动来的好，不过也勉强算一种功能。

如果要完善的话还要判断子节点，暂时解决了，不过这个功能没必要用的。

此主题相关图片如下：87.png