| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- LayersTree无法展开 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188323) |
| -- 作者：lianghanyu -- 发布时间：2023/9/14 10:41:00 -- LayersTree无法展开 在窗口中加入一个控件 在窗口加载后加入代码： Dim trv As WinForm.LayersTree = e.Form.Controls("LayersTree1") Dim st As New LayerTreeSetting st.PathCol = "第一列" st.Separator = "/" st.IncludeSub = True st.GridTree = True ‘逻辑性，指定是否自动开启折叠模式，默认为False。 st.ExpandTo = -1 ’整数型，指定折叠树默认展开级别，默认为0,也就是都不展开，如果设置为-1，则全部展开 trv.BuildBomTree(Tables("文件服务器"), st) 问， GridTree = True ？ ExpandTo = -1 为什么不自动展开？ 另外，这个生成的层级树，可以像 TreeView 一样，单独设置节点的字体和颜色的吗？ 因为我想把每一个大层的节点显示出来不一样的颜色。 |
| -- 作者：有点蓝 -- 发布时间：2023/9/14 11:25:00 -- ExpandTo这个是用来展开表格里的层级，不是用来展开目录树的节点。 如果要展开目录树节点，可以这样 …… trv.BuildBomTree(Tables("文件服务器"), st) Dim tv = trv.BaseControl tv.ExpandAll 至于不同节点不同颜色无法设置 |
| -- 作者：lianghanyu -- 发布时间：2023/9/14 11:52:00 -- 谢谢指教。， 请问，如果想展开特定的层级，代码格式是什么样的呢？ tv.Expand（2）？？？？吗？
|
| -- 作者：有点蓝 -- 发布时间：2023/9/14 11:56:00 -- http://www.foxtable.com/webhelp/topics/0910.htm tv.Nodes(1).Expand() 展开第二个根节点
|