以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树节点背景色改变的事件与代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158914)

--  作者:zsxx999ja
--  发布时间:2020/12/7 13:28:00
--  目录树节点背景色改变的事件与代码
我想在目录树节点选中时呈红色,离开后变回原来的色彩,如何写代码,在哪里写?
--  作者:有点蓝
--  发布时间:2020/12/7 13:55:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=110362&skin=0
--  作者:zsxx999ja
--  发布时间: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" 事件没有定义,怎么突然来了



--  作者:有点蓝
--  发布时间:2020/12/7 14:41:00
--  
就是上面第二段代码定义的。

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