- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 离开目录树后，节点背景色问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80401)
-- 发布时间：2016/1/21 23:31:00
-- 离开目录树后，节点背景色问题
离开目录树后，节点如何保持原有背景色，如：选择节点时背景色是蓝色，当鼠标选择其他控件后，节点的背景色还保持蓝色。
-- 发布时间：2016/1/21 23:47:00
--
参考，要这样改。
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=44083&skin=0
-- 发布时间：2016/1/21 23:48:00
--
或者看看
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=24825&skin=0
-- 发布时间：2016/1/22 13:05:00
--
谢谢，我加进去看看，这样的帖子有论坛中比较难搜索。
-- 发布时间：2016/1/22 13:37:00
--
用个第二个例子，有两个问题请教：
1、在WIN7字体大小设置为中，125%的情况下，发现节点文字转行了，怎么改？
2、选中的节点字体颜色在那么地方改？
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.LightSkyBlue
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
此主题相关图片如下：20160122133237.png
-- 发布时间：2016/1/22 14:23:00
--
宽高在这里设置
selCon.Size = new Size(node.Bounds.Width*1.25, node.Bounds.Height)
颜色这里设置
label.BackColor = Color.Red
label.ForeColor = Color.Yellow
-- 发布时间：2016/1/22 19:01:00
--
文本的对齐方式呢？这个文本垂直靠上了，居中用什么代码？
此主题相关图片如下：201601221857441.png
-- 发布时间：2016/1/22 19:12:00
--
找到方法了，label.TextAlign = ContentAlignment.BottomLeft
[此贴子已经被作者于2016/1/22 19:12:25编辑过]
-- 发布时间：2016/1/23 1:01:00
--
还是发现有问题，用鼠标移动目录树右边滑动条的时候，目录树节点在移动，但标签在原地不动，变两个相同的了。如图
此主题相关图片如下：201601221857442.png
[此贴子已经被作者于2016/1/23 1:07:54编辑过]
-- 发布时间：2016/1/23 9:34:00
--
上传例子测试