[求助]树节点特殊显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]树节点特殊显示

共有11383人关注过本帖树形打印复制链接主题：[求助]树节点特殊显示

chnfo

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2243 积分：18477 威望：0 精华：0 注册：2011/11/26 20:21:00

[求助]树节点特殊显示 发帖心情

Post By：2012/10/24 10:39:00 [只看该作者]

目的：选中表的节点，定位树节点（或直接选择树节点），然后使树节点特殊显示（例如底色为红色，也可以使节点名称字体变为红色，因为现在设置的选中底色是灰色，看得不太清楚）

我在表的PositionChanged事件里加了定位树节点代码。

然后在树节点的AfterSelect事件里加了使节点底色变为红色的代码。

问题：

（1）如果表里的行发生变化，原来树节点的底色红色没有消除，如果把表里的行全部点一遍，树节点也会都成红底色，起不到特殊显示的目的。

（2）我想在选定行之后，在StatusBar里显示行的Code列值，但在切换到表B时，左下角仍然提示的是表A的Code列值，容易引起误解。如何在切换表时，消除StatusBar的错误提示？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:nodeselect节点改变底色.table

[此贴子已经被作者于2012-10-24 11:50:33编辑过]

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/10/24 15:24:00 [只看该作者]

哈哈，第一个问题，终于是模拟成功了。如下。

Dim tree As System.Windows.Forms.TreeView = mytree.BaseControl

For i As Integer = tree.Controls.Count - 1 To 0 Step -1
    If tree.Controls(i).Name = "SelectLab" Then
        tree.Controls.RemoveAt(i)
    End If
Next

Dim selCon As System.Windows.Forms.Control = tree.Controls("SelectLab")
Dim label As New System.Windows.Forms.Label
label.Name = "SelectLab"
label.AutoSize = False
label.BackColor = Color.Red
label.ForeColor = e.Node.ForeColor
label.Font = tree.Font
mytree.BaseControl.Controls.Add(label)
selCon = Label
Dim node As System.Windows.Forms.TreeNode = tree.SelectedNode
selCon.Size = new Size(node.Bounds.Width, node.Bounds.Height)
selCon.Location = new Point(node.Bounds.X, node.Bounds.Y)
selCon.Text = e.Node.Text