1,451
社区成员
发帖
与我相关
我的任务
分享我就想有个明确的答复，treeview中的能一次性删除掉所有节点吗？
内容如题，就是treeview控件中，在某个事件触发中，把所有的节点都删除掉，可以吗？如果可以，怎么实现，如果不可以，请赶快告诉我一下吧，我好另改他法啊
...全文
请发表友善的回复…
发表回复
Girl1983 2003-02-27
- 打赏
- 举报
treeview1.nodes.clear
zhaoliao 2003-02-27
- 打赏
- 举报
组合了API的逆序删除是最快的清除TreeView控件
zhaoliao 2003-02-27
- 打赏
- 举报
Private Const WM_SETREDRAW = &HB
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub TrvwClear()
Dim x As Integer
With TreeView1
SendMessage .hwnd, WM_SETREDRAW, 0, 0
For x = .Nodes.Count To 1 Step -1
.Nodes.Remove x
Next x
SendMessage .hwnd, WM_SETREDRAW, 1, 0
End With
End Sub
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub TrvwClear()
Dim x As Integer
With TreeView1
SendMessage .hwnd, WM_SETREDRAW, 0, 0
For x = .Nodes.Count To 1 Step -1
.Nodes.Remove x
Next x
SendMessage .hwnd, WM_SETREDRAW, 1, 0
End With
End Sub
