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

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

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不会写啦。直接得出来最长的长度。怎么写

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

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

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

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

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

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

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