删除所选中的node: Private Sub Command1_Click() TreeView1.Nodes.Remove TreeView1.SelectedItem.Index End Sub至于加图标,你需要在窗体上放置一个imagelist控件,并预先为imagelist载入几张图片,然后:Private Sub Form_Load() Set TreeView1.ImageList = ImageList1 Dim i As Long For i = 1 To 100 TreeView1.Nodes.Add , , , "line " + CStr(i), 1'参数1 为你想添加的图标在ImageList控件中的索引 Next End Sub
Private Sub Command1_Click()
TreeView1.Nodes.Remove TreeView1.SelectedItem.Index
End Sub至于加图标,你需要在窗体上放置一个imagelist控件,并预先为imagelist载入几张图片,然后:Private Sub Form_Load()
Set TreeView1.ImageList = ImageList1
Dim i As Long
For i = 1 To 100
TreeView1.Nodes.Add , , , "line " + CStr(i), 1'参数1 为你想添加的图标在ImageList控件中的索引
Next
End Sub