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

第一种方法提示出错

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

你去下载开发版的地方，下载一个商业版安装后，就可以打开.table的文件了。

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

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

Dim sender As Object = Args(0)
Dim e As Object = Args(1)
'绘制文本和底色
        Dim nodeFont As Font = e.Node.NodeFont
        If nodeFont Is Nothing Then
            nodeFont = DirectCast(sender, System.Windows.Forms.TreeView).Font
        End If

        If (e.State And System.Windows.Forms.TreeNodeStates.Selected) <> 0 Then
            e.Graphics.FillRectangle(Brushes.Lime, e.Node.Bounds)  '背景色
            e.Graphics.DrawString(e.Node.Text, nodeFont, Brushes.Red, e.bounds.x, e.bounds.y+10)  '字体色
        Else
            Dim a1 As SolidBrush = New SolidBrush(e.Node.TreeView.BackColor)
            e.Graphics.FillRectangle(a1, e.Node.Bounds)  '背景色
            e.Graphics.DrawString(e.Node.Text, nodeFont, Brushes.Black, e.bounds.x, e.bounds.y+10)  '字体色
        End If

谢谢大家的帮助，这下效果完美了。