选中时的 TreeNode 更改前景色/背景色

Question

基本上我正在尝试找到一种方法来单击 TreeView 的区域并突出显示该区域。他们的问题似乎总是在选择另一个节点后不突出显示该区域。我一遍又一遍地玩弄和搜索.. 好吧.. 最后我问 b/c 我不能让它正常工作。我会展示我的代码，但它不仅仅是一堆令人讨厌的整合代码。有没有人有一个很好的工作例子？

仅澄清基础知识：

Private Sub TreeView1_AfterSelect(ByVal sender As Object, _
                                  ByVal e As TreeViewEventArgs) _
                                  Handles TreeView1.AfterSelect           
  'e.Node.BackColor = Color.Yellow 
End Sub

我尝试使用多种方法通过循环遍历集合来设置和取消选择。它似乎永远不会起作用！

Answer 1

尝试将 TreeView 控件的 DrawMode 更改为 OwnerDrawText 并使用此绘图代码：

Private Sub TreeView1_DrawNode(ByVal sender As Object, _
                               ByVal e As DrawTreeNodeEventArgs) _
                               Handles TreeView1.DrawNode
  If (e.State And TreeNodeStates.Selected) <> 0 Then
    e.Graphics.FillRectangle(Brushes.Yellow, e.Bounds)
    TextRenderer.DrawText(e.Graphics, e.Node.Text, e.Node.NodeFont, e.Bounds, _
                          Color.Black, Color.Empty, _
                          TextFormatFlags.VerticalCenter)
  Else
    e.Graphics.FillRectangle(SystemBrushes.Window, e.Bounds)
    TextRenderer.DrawText(e.Graphics, e.Node.Text, e.Node.NodeFont, e.Bounds, _
                          SystemColors.WindowText, Color.Empty, _
                          TextFormatFlags.VerticalCenter)
  End If
End Sub

Answer 2

第一步，放置一个文本框，一个标签和三个水平滚动条 step2-下一步是设置各个控件的属性。

1. label1-caption-background
2. text1-text-（留空）
3. hscroll1-max-255
4. hscroll2-max-255
5. hscroll3-max-255

（上面给出的是控件、属性和设置） step3-这是最后一步。就是写代码。很简单。

Private Sub HScroll1_Change()(note:end of line1)
  Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)(note:end of line2)
End Sub


Private Sub HScroll2_Change()(note:end of line1)
  Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)(note:end of line2)
End Sub

Private Sub HScroll3_Change()(note:end of line1)
  Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)(note:end of line2)
End Sub