AfterSelectNode事件
Dim tree As System.Windows.Forms.TreeView = e.Sender.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 = new font(tree.Font.name, tree.Font.size, FontStyle.Bold )
tree.Controls.Add(label)
selCon = Label
Dim node As System.Windows.Forms.TreeNode = tree.SelectedNode
selCon.Size = new Size(node.Bounds.Width+5, node.Bounds.Height)
selCon.Location = new Point(node.Bounds.X, node.Bounds.Y)
selCon.Text = e.Node.Text
加好友 
发短信
Post By：2016/4/19 11:55:00 [显示全部帖子]
