- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求一个目录树最长节点的代码， (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89418)
-- 发布时间：2016/8/21 16:21:00
-- 求一个目录树最长节点的代码，
先问个别的问题，目录树控件的宽度有没有直接自适应最长节点的字符的简单代码，求一个。
-- 发布时间：2016/8/21 16:25:00
--
要找最长节点。
方法一：循环所有的节点，得出最长的一个；
方法二：直接查找表数据，得到最长的那个
-- 发布时间：2016/8/21 16:34:00
-- 代码如下不会进行比较求代码。
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不会写啦。直接得出来最长的长度。怎么写
-- 发布时间：2016/8/21 16:37:00
--
Dim max As integer = 0
If nd.Text.Length > max Then max = nd.Text.Length
-- 发布时间：2016/8/21 16:46:00
-- 不会呀。
此主题相关图片如下：69.png
-- 发布时间：2016/8/21 17:01:00
--
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)
-- 发布时间：2016/8/21 18:32:00
-- 弄好了
弄好了，不过这个IF THEN连在一起写好像没见过。。。
-- 发布时间：2016/8/21 18:33:00
--
只有一句代码的时候，可以写在一行里。不过不建议这样写。
-- 发布时间：2016/8/22 9:24:00
--
楼主是想要达到这个效果吗? http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=21386&authorid=0&page=0&star=1
-- 发布时间：2016/8/22 9:44:00
-- 谢谢程版
谢谢程版，我还没开始写功能呢，只是一个没必要的功能
让目录树随着最长的节点的长度变宽
因为代码能力有限现在已经用最简单的代码实现了，不太完美，放在窗口加载中估计会影响窗口打开速度，放在窗口控件中，会明显导致右边延迟，不如直接用手拖动来的好，不过也勉强算一种功能。
如果要完善的话还要判断子节点，暂时解决了，不过这个功能没必要用的。
此主题相关图片如下：87.png