TreeView属性中有个复选框,设为true时,显示在TreeView上.
我想知道怎么样取出选取的节点内容? 请指点,谢了!

解决方案 »

  1.   

    Private Sub Command1_Click()
    Dim x As String
    x = ""
    For i = 1 To TreeView1.Nodes.Count
    If TreeView1.Nodes(i).Checked = True Then x = x & " " & i
    Next
    MsgBox "you have select nodes: " & x
    End Sub
      

  2.   

    SelectedItem 属性示例
    此例子添加几个 Node 对象到 TreeView 控件。选择 Node 后,单击窗体查看 Node 的各种属性。为试用此例,在窗体上放置 TreeView 控件,并粘贴下面的代码到窗体的声明部分,运行此例,选择 Node,并单击窗体。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("c3", tvwChild, "c4", "Child 4")
       Set nodX = TreeView1.Nodes.Add("c3", tvwChild, "c5", "Child 5")
       Set nodX = TreeView1.Nodes.Add("c5", tvwChild, "c6", "Child 6")
       Set nodX = TreeView1.Nodes.Add("c5", tvwChild, "c7", "Child 7")
       nodX.EnsureVisible
       TreeView1.BorderStyle = vbFixedSingle
    End SubPrivate Sub Form_Click()
       Dim nodX As Node
       '置变量为 SelectedItem。
       Set nodX = TreeView1.SelectedItem
       Dim strProps As String
       '检索节点的各属性。
       strProps = "Text: " & nodX.Text & vbLF
       strProps = strProps & "Key: " & nodX.Key & vbLF
       On Error Resume Next '根节点没有父节点。
       strProps = strProps & "Parent: " & nodX.Parent.Text & vbLF
       strProps = strProps & "FirstSibling: " & _
       nodX.FirstSibling.Text & vbLF
       strProps = strProps & "LastSibling: " & _
       nodX.LastSibling.Text & vbLF
       strProps = strProps & "Next: " & nodX.Next.Text & vbLF
       
       MsgBox strProps
    End Sub
      

  3.   

    Private Sub Command1_Click()
    Dim x As collection
    dim var as variantset x = new collectionFor each var in TreeView1.Nodes
      if var.Checked = True Then x.add var,var.key
    Next'x包含了所有被选中节点的引用。
    End Sub