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

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

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

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

实现了，代码分享出来：

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

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

 

---

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

---

 

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

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

 

此主题相关图片如下：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

这样的对了

Dim tr As System.Windows.Forms.TreeView = e.Form.Controls("TreeView1").BaseControl

请老师看看，现在有两个问题，一是父节点红色失效，二是我调整了节点高度为30，这样好像节点高度无效了。

 

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

---

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

---

老师，鼠标双击时的背景色能去掉吗？

老师，在请教一下，我想把页签也弄成按钮的样式，把背景色的宽度加大了，但是图标不显示了，应该是重绘底色把图标遮挡了，如果也通过内部函数来实现点击后换图标应该怎么写呢？一级节点换“图标三”，二级节点换“图标四”

        e.Graphics.FillRectangle(Brushes.LightPink, Rectangle.Inflate(e.Bounds, 100, 0))  '二级节点背景色，默认是2
        e.Graphics.DrawString(e.Node.Text, nodeFont, Brushes.Red, e.Bounds.Left + 2,e.Bounds.top + 8)  '字体色

        e.Graphics.DrawImage("图标四.png")   '测试这样不行

 

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