Foxtable(狐表)用户栏目专家坐堂 → 目录树控件选择的节点,节点背景色和节点字体颜色代码控制无效


  共有8238人关注过本帖树形打印复制链接

主题:目录树控件选择的节点,节点背景色和节点字体颜色代码控制无效

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/22 20:53:00 [显示全部帖子]

 不应该有这个问题,上传个例子说明。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/24 19:39:00 [显示全部帖子]

以下是引用yinyb36在2014-4-24 19:21:00的发言:
显示器刚修好,回复晚了,见谅!
点回目录树下面空白处,可发现目录树的焦点在显示所有行上,这是变相的处理,并没有说明能用代码控制节点背景色和节点字体颜色,这是两码事

 

看了一下,用代码设置有效的。但是焦点单元格默认就是浅蓝色的,遮住了设置的内容。

 

我看你的例子,你想实现怎样的内容?如果要改变焦点单元格的背景颜色等,需要特殊编写代码的。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/24 19:43:00 [显示全部帖子]

 改变焦点节点的方法

 

Dim tree As System.Windows.Forms.TreeView = Forms("xxx").Controls("TreeView1").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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/24 22:54:00 [显示全部帖子]

 mytree 改成 tree

 

mytree.BaseControl.Controls.Add(label)

 

改成

 

tree.Controls.Add(label)

[此贴子已经被作者于2014-4-24 22:55:07编辑过]

 回到顶部