Foxtable(狐表)用户栏目专家坐堂 → 目录树节点背景色改变的事件与代码


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

主题:目录树节点背景色改变的事件与代码

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


加好友 发短信
等级:童狐 帖子:212 积分:2275 威望:0 精华:0 注册:2020/10/3 6:58:00
目录树节点背景色改变的事件与代码  发帖心情 Post By:2020/12/7 13:28:00 [只看该作者]

我想在目录树节点选中时呈红色,离开后变回原来的色彩,如何写代码,在哪里写?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107751 积分:548094 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/7 13:55:00 [只看该作者]

参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=110362&skin=0

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


加好友 发短信
等级:童狐 帖子:212 积分:2275 威望:0 精华:0 注册:2020/10/3 6:58:00
  发帖心情 Post By:2020/12/7 14:13: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



这是我在帮助的论坛里找的,有点看不懂。请帮助? "SelectLab" 事件没有定义,怎么突然来了



 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107751 积分:548094 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/7 14:41:00 [只看该作者]

就是上面第二段代码定义的。

selCon.Location = new Point(node.Bounds.X, node.Bounds.Y)     这里是什么意思?设置标签的位置,目的挡住选择的节点

 回到顶部