以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不能展开目录树的节点  (http://foxtable.net/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