切换不同页签后改变目录树节点背景颜色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，我切换不同页签后，改变目录树背景颜色无效，请老师看看哪儿问题，代码如下：

'选择不同页签后，自动跳转到对应的导航

Dim pag As WinForm.TabControl = e.Form.Controls("tabControl1")

Dim st As String = pag.S electedPage.Name

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

For Each n As WinForm.TreeNode In tr.AllNodes

If n.Text.IndexOf (st) >= 0 Then

tr.S electedNode = tr.Nodes(n.ParentNode.Index).Nodes(n.Index)

n.I conF ile = "2.png"

n.ParentNode.I conF ile = "3.png"

n.Backcolor = Color.FromARGB(0, 120, 215)

Else

n.I c

n.Backcolor = Color.FromARGB( 230, 230, 230)

End If

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

[此贴子已经被作者于2023/2/24 13:33:46编辑过]

改了n背景色还是无效，焦点在目录书上没有问题，是不是因为交点不在目录树上，没法指定背景色呢，

[此贴子已经被作者于2023/2/24 13:42:37编辑过]

那指定背景应该是没问题的啊

这样写还报错：

tr.S electedNode = n.Nodes(n.ParentNode.Index).Nodes(n.Index)

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

示例文件：

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

[此贴子已经被作者于2023/2/24 13:51:49编辑过]

也不行，还是错行的，我把示例文件传楼上了，请老师看看

资产管理和合同管理做了窗口可以测试

[此贴子已经被作者于2023/2/24 13:55:28编辑过]

代码：

'选择不同页签后，自动跳转到对应的导航

Dim pag As WinForm.TabControl = e.Form.Controls("tabControl1")

Dim st As String = pag.S elect edPage.Name

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

For Each n As WinForm.TreeNode In tr.AllNodes

If n.Text.IndexOf (st) >= 0 Then

tr.S electedNode = n 'tr.Nodes(n.ParentNode.Index).Nodes(n.Index)

MessageBox.Show("父节点" & n.ParentNode.Index)

MessageBox.Show("子节点："& n.Index)

n.I conF ile = "2.png"

n.P arent Node.I conF ile = "3.png"

n.ForeColor = Color.Red 'FromARGB(0, 120, 215)

n.Backcolor = Color.FromARGB(0, 120, 215)

Else

n.I conF ile = "1.png"

End If

测试顺序：

先打开资产统计管理，在打开屋内物品管理，绘制了资产统计管理，正确的应该绘制屋内物品管理才对啊：

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

在页签上切换回资产统计管理，结果把屋内物品管理背景绘制了，正确的应该绘制资产统计管理的目录树才对啊。

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

[此贴子已经被作者于2023/2/24 14:16:24编辑过]

选中状态的白色背景及字体颜色是没法指定颜色的哟？纠结了半天

[此贴子已经被作者于2023/2/24 14:40:48编辑过]

主题：切换不同页签后改变目录树节点背景颜色