7,789
社区成员
发帖
与我相关
我的任务
分享Option Explicit
Private Sub Form_Load()
Call InitTreeView
End Sub
Private Sub InitTreeView()
Dim node As node
TreeView1.LineStyle = tvwRootLines
Set node = TreeView1.Nodes.Add(, , "root", "中国")
Set node = TreeView1.Nodes.Add(node, tvwChild, "hunan", "湖南")
End Sub
'---------------------------------------------------------------------------------------
' 过程名 : cmdRemove_Click
' 时间 : 2013/2/23
' 作者 : 杨过.网狐.cn(csdn bcrun)
' 功能 :
' 说明 :
' 备注 : 星辰设计室VB一群:283362041,星辰学园BASIC辅导群:289219875
'---------------------------------------------------------------------------------------
Private Sub cmdRemove_Click()
'TreeView1.Nodes.Remove ("hunan") '通过key删除,推荐
TreeView1.Nodes.Remove (2) '通过index删除
End Sub