vb.net的TreeView和ListView的操作问题

[ztsjznc]

想实现点击添加按钮，左侧TreeView带Checkbox的子节点添加到右边的listView控件中。可是treeview的递归调用和listview的添加功能实现把我搞的很晕，请高手帮忙解决。以下代码是有问题的。

 Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click‘添加按钮点击事件
        With ListView1’添加表头
            .Clear()
            .View = View.Details
            .FullRowSelect = True
            .Columns.Add("名称", 100, HorizontalAlignment.Center)
            .Columns.Add("代码", 100, HorizontalAlignment.Center)
            .Columns.Add("所属部门", 100, HorizontalAlignment.Center)
        End With

        For Each node As TreeNode In TreeView1.Nodes
            With ListView1
                Dim itm As ListViewItem
                itm = ListView1.Items.Add(node.Text)
                itm.SubItems.AddRange({node.Tag, node.ToolTipText})
            End With
        Next
    End Sub
‘递归调用代码
    Private Sub CheckNode(ByVal N As TreeNode)
        Dim node As TreeNode
        If N.LastNode Is Nothing And N.Checked = True Then
            For Each node In N.Nodes
                CheckNode(node)
            Next
        End If
    End Sub

[Tiger_Zhao]

    Private Function IsPerson(ByVal node As TreeNode) As Boolean
        '根据节点的图片，判断是否为人员'
    End Function

    Private Sub CopyChecked2List(ByVal node As TreeNode)
        If Node.Checked AndAlso IsPerson(Node) Then
            Dim itm As ListViewItem
            itm = ListView1.Items.Add(Node.Text)
            itm.SubItems.AddRange(New String() {Node.Tag, Node.ToolTipText})
        Else
            For Each subNode As TreeNode In Node.Nodes
                CopyChecked2List(subNode)
            Next
        End If
    End Sub

    Private Sub BtnAdd_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnAdd.Click '添加按钮点击事件
        With ListView1 '添加表头
            .Clear()
            .View = View.Details
            .FullRowSelect = True
            .Columns.Add("名称", 100, HorizontalAlignment.Center)
            .Columns.Add("代码", 100, HorizontalAlignment.Center)
            .Columns.Add("所属部门", 100, HorizontalAlignment.Center)
        End With

        For Each node As TreeNode In TreeView1.Nodes
            CopyChecked2List(node)
        Next
    End Sub

[ztsjznc]

非常完美的解决了问题，非常感谢2楼高手帮助解决了问题。我想再追加一下问题，好实现完美结贴，就是我左键双击左侧treeview控件的节点时，在右侧添加listview控件的items值时怎么解决它会重复添加的相同人员的问题。首先是要遍历右侧的listview控件的item值。如果发现是重复的就不添加。思路是这样的，但代码确实是难写。 '节点双击TreeView节点选择人员 Private Sub TreeView1_NodeMouseDoubleClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseDoubleClick Try Dim blnHave As Boolean Dim i As Long blnHave = False MsgBox(ListView1.SelectedItems(0).SubItems.Item(1).Text) For i = 1 To ListView1.Items.Count If e.Node.Tag = ListView1.SelectedItems(0).SubItems.Item(1).Text Then blnHave = True Exit For End If Next i If TreeView1.SelectedNode.LastNode Is Nothing And Not blnHave Then With ListView1 Dim itm As ListViewItem If e.Node.Text <> "" Then itm = ListView1.Items.Add(e.Node.Text) '姓名 itm.SubItems.AddRange({e.Node.Tag, e.Node.ToolTipText}) '账号,部门 End If End With End If Catch err As System.Exception MsgBox(err.Message) End Try End Sub

[ztsjznc]

For i = 1 To ListView1.Items.Count If e.Node.Tag = ListView1.SelectedItems(0).SubItems.Item(1).Text Then'选取匹配项这里listview1.item(i）就报错 blnHave = True Exit For End If Next i 在网上查过很多信息别的语言用listview控件调用item(i)的方法。如这样就没问题ListView1.Items(i).SubItems.Strings(6)，vb.net怎么想调用就总是提示错误，不知道怎么调用listview控件下某行某例（或固定例）的值。

[Tiger_Zhao]

首先每个节点要有一个唯一的Key（比如编号之类）
然后 ListView 添加节点的同时指定Key

itm = ListView1.Items.Add(node.Text, Key)

双击时你就可以用 ListView1.Items.ContainsKey(Key) 来判断节点是否已经存在。