深入学习<树形目录控件——TreeView控件介绍>

ningyong58

http://club.excelhome.net/viewth ... 8%BC%FE%BD%E9%C9%DC
(9) singlesel属性：设置在树中选择新的条目时，是否展开此条目并收拢前一个条目，即设置为True时，并且当前选中的条目有子项的时候，会把子项展开，并将原来选中的条目收拢。

测试一下singlesel---前选中的条目有子项的时候，会把子项展开，并将原来选中的条目收拢

ningyong58

TreeView的数据准备用的是Sheet方法.
    '从工作表中获取数据作为一个数组
    With Sheets("Sheet1").Range(Sheets("Sheet1").[A2], Sheets("Sheet1").[A65536].End(xlUp))
        arrName = .Value
        arrParent = .Offset(, 1).Value
    End With

这做了一个矩阵,没搞清提高工作效率体现.

-----
关注点:
1 Indentation属性值决定。每一个缩进层次代表从列表边缘开始的10个像素宽，所以Indentation值为1的ComboItem将从Indentation为0的 ComboItem开始缩进10个像素。http://club.excelhome.net/thread-235182-1-1.html


2  其它二级节点没有三级节,这个节点能展开第三级节点的算法没搞清楚?
用递归法向节点添加数据,添加数据到节点中
if not exit(b) then ----- 是向二级节点添加添加节点?

没看清与三级节点的关系???

    For i = 1 To UBound(arrTemp)
        For j = 1 To UBound(arrTemp, 2)
            If Not IsEmpty(arrTemp(i, j)) Then
                With UserForm1.TreeView1
                    bExists = False
                    For Each elm In .Nodes
                        If elm = arrTemp(i, j) Then bExists = True
                    Next
                    If Not bExists Then
                        If j = 1 Then
                            Set node = .Nodes.Add(, , arrTemp(i, j), arrTemp(i, j), _
                            Image:=GetInfo(arrTemp(i, j), True))
                        Else
                            Set node = .Nodes.Add(arrTemp(i, j - 1), tvwChild, arrTemp(i, j), arrTemp(i, j), _
                            Image:=GetInfo(arrTemp(i, j), True))
                        End If
                        node.Expanded = True
                    End If
                End With
            End If
        Next

3 Image
以前没见过这种用法. 只知道向listImage控件添加图片.
    Dim myImgList As New ImageList
    Dim bt
    With myImgList.ListImages
        .Add Key:="Image1", Picture:=Sheet1.Image1.Picture
        .Add Key:="Image2", Picture:=Sheet1.Image2.Picture
        .Add Key:="Image3", Picture:=Sheet1.Image3.Picture
        .Add Key:="Image4", Picture:=Sheet1.Image4.Picture
        .Add Key:="Image5", Picture:=Sheet1.Image5.Picture
        .Add Key:="Image6", Picture:=Sheet1.Image6.Picture
        .Add Key:="Image7", Picture:=Sheet1.Image7.Picture
        .Add Key:="Image8", Picture:=Sheet1.Image8.Picture
        .Add Key:="Image9", Picture:=Sheet1.Image9.Picture
        .Add Key:="none", Picture:=Sheet1.none.Picture
    End With
    With TreeView1
        Set .ImageList = myImgList
        .Indentation = 14
        .LabelEdit = tvwManual
        .HideSelection = False
    End With


[localimg=400,196]2[/localimg]

以此为题,向各位大侠提的问题是,如何动态向Imagelist控件添加图片??

[ 本帖最后由 ningyong58 于 2010-4-3 15:44 编辑 ]

ningyong58

1 向各位大侠请教的问题是:子节点打勾,根节点同时打勾.下面的方法只是对子节点打勾.如何给根节点打勾？？

Private Sub CommandButton2_Click()
  '设置为复选框显示
  TreeView1.CheckBoxes = True
End Sub

2　Treeview1_Nodecl和Treeview1_NodeCheck的用法．

原来感觉这个form比较深奥，现在看起来比较好理解了．

Private Sub Treeview1_Nodeclick(ByVal Node As MSComctlLib.Node)
  '返回对象路径
  Label3.Caption = Node.FullPath
End Sub

Private Sub Treeview1_NodeCheck(ByVal Node As MSComctlLib.Node)
  '复选框事件
  Label5.Caption = "当前选择的节点是:" & TreeView1.SelectedItem.Text
End Sub

Private Sub CommandButton2_Click()
  '设置为复选框显示
  TreeView1.CheckBoxes = True
End Sub

Private Sub CommandButton3_Click()
  '清除节点
  TreeView1.Nodes.Clear
End Sub

Private Sub CommandButton4_Click()
  '去掉复选框显示
  TreeView1.CheckBoxes = False
End Sub

Private Sub CommandButton5_Click()
  '开启热跟踪功能
  TreeView1.HotTracking = True
End Sub

Private Sub CommandButton6_Click()
  '编辑节点
  TreeView1.StartLabelEdit
End Sub

Private Sub CommandButton7_Click()
  '显示根节点连线
  TreeView1.LineStyle = tvwRootLines
End Sub

Private Sub CommandButton8_Click()
  '隐藏根节点连线
  TreeView1.LineStyle = tvwTreeLines
End Sub

Private Sub CommandButton9_Click()
  '移除所选节点
  '若为根节点,则将其子节点一并移除
  TreeView1.Nodes.Remove TreeView1.SelectedItem.Index
End Sub

Private Sub CommandButton10_Click()
  '统计节点个数
  Label1.Caption = "TreeView控件中节点对象的个数为:" & TreeView1.Nodes.Count & "个."
End Sub

Private Sub CommandButton11_Click()
  '将所选节点变为粗体
  TreeView1.SelectedItem.Bold = True
End Sub

Private Sub CommandButton12_Click()
  Dim i As Long
  For i = 1 To TreeView1.Nodes.Count
    TreeView1.Nodes(i).Expanded = True '展开所有节点
  Next i
End Sub

Private Sub CommandButton13_Click()
  Dim i As Long
  For i = 1 To TreeView1.Nodes.Count
    TreeView1.Nodes(i).Expanded = False '折叠所有节点
  Next i
End Sub
Private Sub OptionButton1_Click()
  '节点仅为文本
  TreeView1.Style = tvwTextOnly
End Sub

Private Sub OptionButton2_Click()
  '节点为图像文本
  TreeView1.Style = tvwPictureText
End Sub

Private Sub OptionButton3_Click()
  '节点为符号文本
  TreeView1.Style = tvwPlusMinusText
End Sub

Private Sub OptionButton4_Click()
  '节点为直线文本
  TreeView1.Style = tvwTreelinesText
End Sub

Private Sub OptionButton5_Click()
  '节点显示恢复正常
  TreeView1.Style = tvwTreelinesPlusMinusPictureText
End Sub

Private Sub Treeview1_Nodeclick(ByVal Node As MSComctlLib.Node)
  '返回对象路径
  Label3.Caption = Node.FullPath
End Sub

Private Sub Treeview1_NodeCheck(ByVal Node As MSComctlLib.Node)
  '复选框事件
  Label5.Caption = "当前选择的节点是:" & TreeView1.SelectedItem.Text
End Sub
在这个form中，到现在没搞清楚热跟踪的实际应用效果．


[ 本帖最后由 ningyong58 于 2010-4-3 16:44 编辑 ]

ningyong58

通过看下面图，基本搞清TreeView的层级关系了．
这种方法简单明了，能直观的建立三级以上的树形层级．
  '建立树形图
  Set nodX = SmartTreeView.Nodes.Add(, , "湖北省", "湖北省")
  Set nodX = SmartTreeView.Nodes.Add(, , "江苏省", "江苏省")
  
  Set nodX = SmartTreeView.Nodes.Add("湖北省", tvwChild, "武汉市", "武汉市")
  Set nodX = SmartTreeView.Nodes.Add("湖北省", tvwChild, "宜昌市", "宜昌市")
  Set nodX = SmartTreeView.Nodes.Add("武汉市", tvwChild, "wchild01", "江汉区")
  Set nodX = SmartTreeView.Nodes.Add("武汉市", tvwChild, "wchild02", "江岸区")
  Set nodX = SmartTreeView.Nodes.Add("武汉市", tvwChild, "wchild03", "汉口区")
  Set nodX = SmartTreeView.Nodes.Add("武汉市", tvwChild, "wchild04", "汉阳区")


节点还能作为文件存取．有意思
- <NODES>
  <NODE Caption="湖北省" Key="湖北省" Tag="" ParentKey="" />
  <NODE Caption="江苏省" Key="江苏省" Tag="" ParentKey="" />
  <NODE Caption="武汉市" Key="武汉市" Tag="" ParentKey="湖北省" />
  <NODE Caption="宜昌市" Key="宜昌市" Tag="" ParentKey="湖北省" />
    </NODES>
从下面程序看，TreeView好像下XML有密切的关系．XLM+TreeView是网页编制的主流．需要恶补．
  Dim xmlDoc As DOMDocument30
  Set xmlDoc = New DOMDocument30
  bttnPopulate.Enabled = False
  If Not xmlDoc.Load("C:\XMLNodes.xml") Then
    MsgBox "不能读取C:\XMLNodes.xml文件。"
    Exit Sub
  End If
  SmartTreeView.Nodes.Clear
  Dim iNode As Integer
  Dim newElement As IXMLDOMElement
  For iNode = 0 To xmlDoc.getElementsByTagName("NODE").Length - 1
    Set newElement = xmlDoc.getElementsByTagName("NODE").Item(iNode)
    If newElement.getAttribute("ParentKey") = "" Then
      SmartTreeView.Nodes.Add , , _
      newElement.getAttribute("Key"), _
      newElement.getAttribute("Caption")
    Else
      SmartTreeView.Nodes.Add _
      newElement.getAttribute("ParentKey"), _
      tvwChild, newElement.getAttribute("Key"), newElement.getAttribute("Caption")
    End If
  Next

[ 本帖最后由 ningyong58 于 2010-4-3 17:14 编辑 ]

clarkldq

多谢楼主的分享。Tks

lzqlaj

太好了，图文并茂。。

shslsun

太好了，太好了

dljyh2009

下载下来学习学习