之前好像也做过，代码也才不多，大概如下
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.Red
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
[此贴子已经被作者于2013-12-22 20:45:52编辑过]
加好友 
发短信
Post By：2013/12/22 20:09:00 [显示全部帖子]
