如何删除treeview控件某一结点下所有子结点?
解决方案 »
- VB中不同子过程中的标号是否可以同名
- 哪位朋友给推荐一下,谢谢啦
- 一个简单问题
- 文本文件怎么才能从后往前读取呢????
- vb如何判断系统是否安装sqlserver
- 用ADO访问access、sql等数据库,如何获得表的属性例如,创建时间,修改时间,以及字段的属性,例如字段的类型、长度、精度、小数点 ...
- 怎样调用excle做报表
- 急求,我因和我老婆吵架,她带走了我儿子离家出走了,我想怎样知道她上次上QQ的IP地址,我请求过警察,但没有帮我.谁知道能否相告
- 有关VB报表分栏问题请教
- VB如何判断数组为空矩阵
- 用VB编树结构
- 我编写一个病毒,问题多多,特别是发送邮件部分!大家帮我顶一下!!(1)
还有就是先删除选择的父节点,再添加该节点,这种做法比较上一种快,但是导致Node的索引变化
Public Sub TreeView_DeleteChildNode(tvw As TreeView, ByVal vKey As String)
Dim nNode As Node, nNode1 As Node, nKey() As String, i As Integer
Set nNode = tvw.Nodes(vKey)
If nNode.Children = 0 Then Exit Sub
Set nNode1 = nNode.Child
i = 0
Do While Not nNode1 Is Nothing
ReDim Preserve nKey(i)
nKey(i) = nNode1.Key
Set nNode1 = nNode.Next
i = i + 1
Loop
For i = 0 To UBound(nKey())
Call tvw.Nodes.Remove(nKey(i))
Next i
End Sub