哈哈,第一个问题,终于是模拟成功了。如下。
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
|