以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 不能展开目录树的节点 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184618) |
-- 作者:lihe60 -- 发布时间:2022/12/16 15:24:00 -- 不能展开目录树的节点 Dim pwd As String If InputValue(pwd, "提示", "请输入查找内容:") Then For Each nd As WinForm.TreeNode In trv.AllNodes nd.ForeColor = Color.black If nd.fullname.Contains(pwd) Then nd.ExpandAll nd.ForeColor = Color.Red End If Next End If
|
-- 作者:有点蓝 -- 发布时间:2022/12/16 15:34:00 -- 节点要一级一级展开,第一层节点没有展开,只展开第二级是没有用的 |
-- 作者:lihe60 -- 发布时间:2022/12/16 15:36:00 -- 如何改代码 |
-- 作者:有点蓝 -- 发布时间:2022/12/16 15:44:00 -- If nd.fullname.Contains(pwd) Then dim nn as WinForm.TreeNode = nd.parentnode do while nn isnot nothing nn.Expand nn= nn.parentnode loop nd.ExpandAll nd.ForeColor = Color.Red End If
|