主题：设置treeview目录树，各层level的支点的字体大小

全局代码

Public Sub myTreeView_DrawNode(ByVal sender As Object, ByVal e As Windows.Forms.DrawTreeNodeEventArgs)
If e.Node.Level = 0
    e.Graphics.DrawString(e.Node.Text, new font("宋体", 15), Brushes.Red, e.Bounds)
Else If e.Node.Level = 1
    e.Graphics.DrawString(e.Node.Text, new font("宋体", 8), Brushes.Blue, e.Bounds.x, e.Bounds.y + 5)
Else
    e.Graphics.DrawString(e.Node.Text, new font("宋体", 8), Brushes.Blue, e.Bounds.x, e.Bounds.y + 5)
End If

End Sub

调用代码

Dim trv As windows.forms.treeview = e.Form.Controls("TreeView1").basecontrol
trv.font = New Font("宋体",15)
trv.DrawMode = Windows.forms.TreeViewDrawMode.OwnerDrawText
addHandler trv.DrawNode, addressof myTreeView_DrawNode

参考

http://www.foxtable.com/help/topics/0494.htm

http://www.foxtable.com/help/topics/1482.htm