主题：[求助]根据页签内容找到并展开、定位到该节点

老师，在请教一下，我切换不同的页签，怎么定位到对应的节点呢？

定位节点这儿不知道该怎么写

Dim pag As WinForm.TabControl = Forms("主窗口").Controls("tabControl1")
Dim st As String = pag.SelectedPage.Name

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Text.IndexOf(st) >= 0 Then
        'msgbox("找到:" & st)
        nd.ParentNode.Expand ' 展开该节点的父节点
        nd......... '不知道怎么写定位到找到的节点了
    End If
Next

http://www.foxtable.com/webhelp/topics/0884.htm、http://www.foxtable.com/webhelp/topics/0914.htm

实现了，代码分享出来：

Dim pag As WinForm.TabControl = e.Form.Controls("tabControl1")
Dim st As String = pag.SelectedPage.Name

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Text.IndexOf(st) >= 0 Then
        tr.SelectedNode = tr.Nodes(nd.ParentNode.Index).Nodes(nd.Index)  '不知道怎么写定位到找到的节点了
        tr.SelectedNode.ParentNode.Ic
    End If
Next

在请教一下老师，我点击二级不同节点后，其余节点字体颜色改为黑色应该怎么写，代码发出来会自动把后面的截掉，所以只能发代码截图了？

 

此主题相关图片如下：qq截图20210903174702.jpg

遍历其它同级节点（也就是当前节点的父节点的所有子节点），设置其颜色

请老师看看，

AfterSelectNode事件这样写也无效

此主题相关图片如下：222.jpg

        For Each n As WinForm.TreeNode In e.node.ParentNode.Nodes
            If n.Text = e.node.Text Then
                n.ForeColor = Color.Black
                e.Sender.SelectedNode.ForeColor= Color.Red
            End If
        Next

去掉if判断，当前节点赋值放到循环之后

没效果，好像赋值了不起作用，切换页签定位了也没作用

 

---

以下内容是专门发给有点蓝浏览

---

 

老师，我重新上传了完整文件

代码没有问题，主要是当前选中的节点，有自己特殊的样式，不受代码的影响。当前选中的节点要自己绘制，比如：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=44083&skin=0

示例里面提示没有属性，底层定义没对呢

 

此主题相关图片如下：qq截图20210906172622.jpg

Dim tr As CustomTreeView = e.Form.Controls("TreeView1").BaseControl
tr.HideSelection = False
tr.DrawMode = System.Windows.Forms.TreeViewDrawMode.OwnerDrawText
AddHandler tr.DrawNode, AddressOf TreeView_DrawNode