Office中国论坛/Access中国论坛

标题: 如何改变选中节点的背影色和字体的颜色? [打印本页]

作者: fnsmydyang 时间: 2011-10-24 22:37
标题: 如何改变选中节点的背影色和字体的颜色?
最近碰到一个问题,请各位老师帮忙,为了使树选中的节点更醒目,要求改变选中时节点背景颜色和字体颜色,不知道有什么办法解决?
谢谢各位帮忙了.{:soso_e181:}

作者: fnsmydyang 时间: 2011-10-25 06:29
不要沉下去,问题还没解决呢,自已顶一下.{:soso_e100:}

作者: fnsmydyang 时间: 2011-10-25 21:26
最近怎么没人来解决问题了呢?版主快来{:soso_e181:}帮帮忙吧!

作者: 鱼儿游游 时间: 2011-10-25 22:12
本帖最后由鱼儿游游于 2011-10-25 22:16 编辑

树背景颜色很难改变，但改变节点字体颜色很容易。

'------------------------------------------------------------------
' 鼠标点击 TreeView 的 Node
'------------------------------------------------------------------
Private Sub TreeView0_NodeClick(ByVal Node As Object)
'定义静态变量，用来保存上次点击 TreeView 的 Node 的索引号
Static intNodeIndex As Integer
'点击 TreeView 的 Node：显示红色
Me.TreeView0.Nodes(Node.Index).ForeColor = vbRed
On Error Resume Next
'恢复上一次点击 TreeView 的 Node：显示黑色
intNodeIndex = Nz(intNodeIndex, 0)
If intNodeIndex > 0 And intNodeIndex <> Node.Index Then Me.TreeView0.Nodes(intNodeIndex).ForeColor = vbBlack
intNodeIndex = Node.Index
End Sub

作者: fnsmydyang 时间: 2011-10-26 19:41

鱼儿游游发表于 2011-10-25 22:12
树背景颜色很难改变，但改变节点字体颜色很容易。

'------------------------------------------------- ...

感谢鱼儿老师的点拨,受益非浅，谢谢了.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)