1,108
社区成员
发帖
与我相关
我的任务
分享TREEVIEW控件怎么清空呢？
我发现TREEVIEW控件没有清空函数，而且没办法得到控件下的数据总数，没有办法全部删除。有什么方法可以做到清空呢？能提供详细代码看一下吗？
...全文
请发表友善的回复…
发表回复
纳米茶 2003-09-01
- 打赏
- 举报
Integer li_handle
tv_function.SetRedraw(False)
li_handle=tv_function.FindItem(RootTreeItem!,0)
Do While li_handle>0
tv_function.DeleteItem(li_handle)
li_handle=tv_function.FindItem(RootTreeItem!,0)
Loop
tv_function.DeletePictures()
tv_function.DeleteStatePictures()
tv_function.AddPicture(gs_path +'bmp\info.BMP')
tv_function.AddPicture(gs_path +'bmp\fileclose.bmp')
tv_function.AddPicture(gs_path +'bmp\fileopen.bmp')
tv_function.AddPicture(gs_path +'bmp\program.bmp')
tv_function.SetRedraw(True)
tv_function.SetRedraw(False)
li_handle=tv_function.FindItem(RootTreeItem!,0)
Do While li_handle>0
tv_function.DeleteItem(li_handle)
li_handle=tv_function.FindItem(RootTreeItem!,0)
Loop
tv_function.DeletePictures()
tv_function.DeleteStatePictures()
tv_function.AddPicture(gs_path +'bmp\info.BMP')
tv_function.AddPicture(gs_path +'bmp\fileclose.bmp')
tv_function.AddPicture(gs_path +'bmp\fileopen.bmp')
tv_function.AddPicture(gs_path +'bmp\program.bmp')
tv_function.SetRedraw(True)
