有没有树形listview控件？

[bodybo]

即item可以有子项，子项可展开和收拢，类似树形控件。

有这样的listview控件吗？

[junki]

你使用treeview啊

[bodybo]

谢谢回复！

每个item还要显示好多列，不能用treeview啊。

[Sandrer]

给你个地址：
vbAccelerator - Multi-Column TreeView Control

这地址里面有源代码，不过这代码挺复杂的，我用了两个多礼拜才搞明白
你自己试着研究一下吧！

[Sandrer]

你5楼的问题，Sub Item后面可以加项目，不过稍微麻烦点，要自己修改代码
至于子项目的数量，可以修改控件属性就可以做到的

[Sandrer]

只能自己画了！

用"SysHeader32"类做列头
然后用TreeView做"ListView"
然后子类化主窗体，拦截NM_CUSTOMDRAW消息，接着重画TreeView

[Sandrer]

第一列的字符，都是TreeView在窗体运行时设置的内容
后面的那三列，都是在消息处理函数中，拦截NM_CUSTOMDRAW消息，用DrawText画上去的
至于线条，则是用DrawEdge画出来的

[bodybo]

sandrer厉害！
sub item那一行后面的column也需要显示数据，能做到吗？
还有下面的item还会有子项，这样做是否太复杂了？你是否做成了一个控件还是只能改写源代码？

[bodybo]

Sandrer,你给的那个地址中的东西下载不下来啊。能否将源码发给我 [e-mail] 谢谢！

[Sandrer]

可以下载的啊，在文章的左上角。

[bodybo]

现在了实例，运行出现如下错误，该如何解决？
Run-time error '91':
Object variable or With block variable not set

Private Sub setUpColumns()
Dim cCol As cCTreeViewColumn
With tvwColumns
With .Columns
.Item(1).Width = 128
Set cCol = .Add("TRACK", "Track")
Set cCol = .Add("LENGTH", "Length")
Set cCol = .Add("SIZE", "Size")
End With
End With
End Sub