主题：离开目录树后，节点背景色问题

离开目录树后，节点如何保持原有背景色，如：选择节点时背景色是蓝色，当鼠标选择其他控件后，节点的背景色还保持蓝色。

谢谢，我加进去看看，这样的帖子有论坛中比较难搜索。

用个第二个例子，有两个问题请教：

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

文本的对齐方式呢？这个文本垂直靠上了，居中用什么代码？

 

此主题相关图片如下：201601221857441.png

找到方法了，label.TextAlign = ContentAlignment.BottomLeft

还是发现有问题，用鼠标移动目录树右边滑动条的时候，目录树节点在移动，但标签在原地不动，变两个相同的了。如图

 

 

此主题相关图片如下：201601221857442.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:nodeselect节点改变底色.table

第一种方法提示出错

 

此主题相关图片如下：截图未命名.png

这个怎么应用到开发版中？

目录树节点高度加大后，节点文字显示不理想，这里面什么地方可以设定文字垂直靠中的？

  

Dim sender As Object = Args(0)
Dim e As Object = Args(1)
'绘制文本和底色
If (e.State And System.Windows.Forms.TreeNodeStates.Selected) <> 0 Then
    e.Graphics.FillRectangle(Brushes.Lime, e.Node.Bounds)  '背景色
    Dim nodeFont As Font = e.Node.NodeFont
    If nodeFont Is Nothing Then
        nodeFont = DirectCast(sender, System.Windows.Forms.TreeView).Font
    End If
    e.Graphics.DrawString(e.Node.Text, nodeFont, Brushes.red, Rectangle.Inflate(e.Bounds, 2, 0))  '字体色
Else
    e.DrawDefault = True    '默认样式
End If
'绘制边框
If (e.State And System.Windows.Forms.TreeNodeStates.Focused) <> 0 Then
    Using focusPen As New Pen(Color.Black)    '边框色
    focusPen.DashStyle = System.Drawing.Drawing2D.DashStyle.Dot
    Dim focusBounds As Rectangle = e.Node.Bounds
    focusBounds.Size = New Size(focusBounds.Width - 1, focusBounds.Height - 1)
    e.Graphics.DrawRectangle(focusPen, focusBounds)
End Using
End If

 

此主题相关图片如下：20160124135140.png