为什么treeview在窗体和sheet应用, 差距较大.

ningyong58

http://club.excelhome.net/thread-164669-1-1.html
<怎样使用Treeview控件从sheet表中读取数据>
按照这个帖子,在窗体中运行结果


而将其放入sheet中就不正常.多了简单节点,如图.



[ 本帖最后由 ningyong58 于 2010-2-16 08:13 编辑 ]

ningyong58

这是将窗体初始化的程序,稍加改动的结果
Sub ls()
  On Error Resume Next
  TreeView1.Style = tvwTreelinesPlusMinusPictureText
  TreeView1.LineStyle = tvwRootLines '显示出表示可扩展节点的“+”号
  Dim i As Variant, k
  ii = Sheet1.[b65536].End(xlUp).Row
  For i = 2 To ii
    k = Cells(i, 1)
    With Sheet2.TreeView1
      .Nodes.Add , , "x" & Cells(i, 2), Cells(i, 2)
      .Nodes.Add "x" & Cells(i, 2), 4, "x" & Cells(i, 2) & k, k
      .Nodes.Add "x" & Cells(i, 2) & k, 4, "x" & Cells(i, 2) & k
      .Nodes(i).Expanded = False '加载时不打开"+"号
    End With
Next i
End Sub

详见附件
treeview2.rar (17.38 KB, 下载次数: 31)

2010-2-15 21:06 上传

点击文件名下载附件

为什么放在form中正常,放在sheet中不正常??

ningyong58

http://club.excelhome.net/thread-236735-1-1.html
Sub sfd()
  Dim NodeX As Node
  'TreeView1.Nodes.Clear
  With Sheet2.TreeView1
    .Nodes.Clear
    For ii = 1 To 5
      Set xNode = .Nodes.Add
      NodeKey = "Node - " & ii
      With xNode
        .Key = NodeKey
        .Text = "Node - " & ii
        .Expanded = False
      End With
      ''
      For jj = 1 To 7
        Set xNode = .Nodes.Add(NodeKey, tvwChild)
        NodeKey2 = "Node - Child - " & ii & jj
        With xNode
          .Key = NodeKey2
          .Text = "Child - " & jj
        End With
        For kk = 1 To 10
          Set xNode = .Nodes.Add(NodeKey2, tvwChild)
          With xNode
            .Text = "Child2 - " & kk
          End With
        Next kk
      Next jj
    Next ii    ''
  End With
End Sub
treeview2.rar (19.57 KB, 下载次数: 22)

2010-3-23 21:03 上传

点击文件名下载附件

[ 本帖最后由 ningyong58 于 2010-3-23 21:03 编辑 ]

lb_bn

sheet中的控件跟窗体里的控件，都多少有些区别。