[分享] TreeView 自定义选中项颜色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享] TreeView 自定义选中项颜色

共有12426人关注过本帖树形打印复制链接主题：[分享] TreeView 自定义选中项颜色

逛逛

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

加好友

发短信

等级：版主帖子：1693 积分：12135 威望：0 精华：7 注册：2013/7/11 10:52:00

[分享] TreeView 自定义选中项颜色 发帖心情

Post By：2013/12/22 19:05:00 [只看该作者]

失去焦点后选定的颜色太淡，

论坛和帮助上没找到方法，只能捣鼓一个。

用的是重绘的方法，百度改的。

图片点击可在新窗口打开查看此主题相关图片如下：jdfw.gif

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

改一下，背景什么颜色都可以了。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:目录树着色.table

[此贴子已经被作者于2015/10/4 11:14:30编辑过]

y2287958

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

加好友

发短信

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2013/12/22 19:09:00 [只看该作者]

学习

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/12/22 20:09:00 [只看该作者]

瞧瞧先！

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/12/22 20:45: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

[此贴子已经被作者于2013-12-22 20:45:52编辑过]