哪位大哥有VB6写的TreeView源码么

Question

哪位大哥有VB6写的TreeView源码么，这个代码中最好不要用MSCOMCTL.OCX，因为我想用源码代替MSCOMCTL.OCX这个文件的

Answer 1

http://www.mndsoft.com/blog/default.asp?tag=Treeview上上面去找找吧,有好多TreeView的控件,都是源码,看有适合的不.

Answer 2

在http://www.mndsoft.com/上找到一个VsTreeView Beta 0.8　作者:Mndsoft要是有这个VsTreeView.OCX的源码就好了
谢谢 fvflove ！

Answer 3

Option ExplicitDim Node1, Node2, Node3
Public Sub Tree_change()
  Dim Key, Text, BH As String
  Dim Nod As Node
 Key = "科目分类"
 Text = "科目分类"
 TreeView1.ImageList = ImageList2
 Set Node1 = TreeView1.Nodes.Add(, , Key, Text, 1)
  Adodc2.RecordSource = "select * from 表1 "
  Adodc2.Refresh
     If Adodc2.Recordset.RecordCount > 0 Then
        Adodc2.Recordset.MoveFirst
          Do While Adodc2.Recordset.EOF = False
            Key = Trim(Adodc2.Recordset.Fields("类别名称"))
            Text = Adodc2.Recordset.Fields("类别名称")
            Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, Key, Text, 2)
                       Adodc1.RecordSource = "select * from 表2 where 类别编号='" + Adodc2.Recordset.Fields("类别编号") + "' "
                       Adodc1.Refresh
                            If Adodc1.Recordset.RecordCount > 0 Then
                            Adodc1.Recordset.MoveFirst
                                Do While Adodc1.Recordset.EOF = False
                                    Key = Trim(Adodc1.Recordset.Fields("科目名称"))
                                    Text = Adodc1.Recordset.Fields("科目名称")
                                    Set Node3 = TreeView1.Nodes.Add(Node2.Index, tvwChild, Key, Text, 3)
                                    Adodc1.Recordset.MoveNext
                                Loop
                            Else
                            End If
            Adodc2.Recordset.MoveNext
          Loop
     Else
     End If
End SubPrivate Sub Form_Activate()
   Call Tree_change
   TreeView1.Checkboxes = True
End SubPrivate Sub TreeView1_BeforeLabelEdit(Cancel As Integer)End Sub

Answer 4

许多所谓的 TreeView 控件其实只是对 MSCOMCTL.OCX 的封装，直接用不就行了。
现在哪个机器上没有这个控件。

Answer 5

MSCOMCTL.OCX这个文件太大，打包时我不想用它，就是想找一个源码代替它，功能只要使用其中的TreeView部分就可以了有的请发到[email protected]，不胜感激！

Answer 6

现在牛人就是多
要东西直接要源码网上有TREEVIEW的源码
为什么我能搜索到
你确不能?
可以找我购买.

Answer 7

我这里也有一整套的,TREEVIEW,LISTVIEW,IMAGELIST等.如果你搜索不到欢迎购买.........

Answer 8

我记得前几天还看到老马发出来的一个什么什么VIEW的源码呢

Answer 9

对了 是listview  
http://topic.csdn.net/u/20080719/02/4feb23ef-d6d8-496c-8e38-47757640c1e3.html