设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2040|回复: 4
打印 上一主题 下一主题

[ActiveX] 如何改变选中节点的背影色和字体的颜色?

[复制链接]
跳转到指定楼层
1#
发表于 2011-10-24 22:37:13 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
最近碰到一个问题,请各位老师帮忙,为了使树选中的节点更醒目,要求改变选中时节点背景颜色和字体颜色,不知道有什么办法解决?
谢谢各位帮忙了.{:soso_e181:}
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2011-10-25 06:29:23 | 只看该作者
不要沉下去,问题还没解决呢,自已顶一下.{:soso_e100:}
3#
 楼主| 发表于 2011-10-25 21:26:54 | 只看该作者
最近怎么没人来解决问题了呢?版主快来{:soso_e181:}帮帮忙吧!

点击这里给我发消息

4#
发表于 2011-10-25 22:12:39 | 只看该作者
本帖最后由 鱼儿游游 于 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
5#
 楼主| 发表于 2011-10-26 19:41:27 | 只看该作者
鱼儿游游 发表于 2011-10-25 22:12
树背景颜色很难改变,但改变节点字体颜色很容易。

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

感谢鱼儿老师的点拨,受益非浅,谢谢了.
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-2-25 15:41 , Processed in 0.118737 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表