Command1_Click()
'如果所选对象不是根,则删除此节点。
If TreeView1.SelectedItem.Index <> 1 Then
Treeview1.Nodes.Remove TreeView1.SelectedItem.Index
End If
End Sub
为编程选择 ListItem 对象,用使用带有 SelectedItem 属性的 Set 语句,如下所示:
Set ListView1.SelectedItem = ListView1.ListItems(1)