treeview及listview控件问题小妹在线等待。

Question

Private Sub Ini_treeview()
Dim nodX As NodeDim s As String, I%TreeView1.Nodes.Clear
Set nodX = TreeView1.Nodes.Add(, , "A", "目录", "closed")
      Set nodX = TreeView1.Nodes.Add("A", tvwChild, "B1", "第1章", "closed")
      Set nodX = TreeView1.Nodes.Add("A", tvwChild, "B2", "第2章", "closed")
      Set nodX = TreeView1.Nodes.Add("A", tvwChild, "B3", "第3章", "closed")
      Set nodX = TreeView1.Nodes.Add("A", tvwChild, "B4", "第4章", "closed")
TreeView1.Nodes.Item(1).Expanded = TrueEnd SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)If Node.Key="B1" Then
   Msgbox "第一页！"
ElseIf Node.Key="B2" Then  
   Msgbox "第二页！"
End IfEnd Sub

Answer 1

Private Sub Form_Load()   Dim nodX As Node
   Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
   Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C11", "Child 11")
   Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C12", "Child 12")
   Set nodX = TreeView1.Nodes.Add("C12", tvwChild, "C121", "Child 121")
   Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C13", "Child 13")
   Set nodX = TreeView1.Nodes.Add("C2", tvwChild, "C21", "Child 21")
   Set nodX = TreeView1.Nodes.Add("C2", tvwChild, "C22", "Child 22")   nodX.EnsureVisible
   TreeView1.Style = tvwTreelinesText ' Style 4.
   TreeView1.BorderStyle = vbFixedSingle
End SubPrivate Sub traval(nodex As Node)
    
    Dim count As Integer
    Dim ChildNode As Node
   
    count = nodex.Children
    
    Debug.Print nodex.Text    
    If count > 0 Then
    
        Set ChildNode = nodex.Child
       
        traval ChildNode
        
        For i = 2 To count
          Set ChildNode = ChildNode.Next
         
          traval ChildNode
        Next
        
    End IfEnd Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)   traval Node
   
End Sub