关于在treeview中用checkbox的问题。

Question

我在treeview中用checkbox。怎么才能知道，由那些被选上了？

Answer 1

For I = 1 To TreeView1.Nodes.Count
        If TreeView1.Nodes(I).Checked Then
            MsgBox TreeView1.Nodes(I).Text & "被选中"
        End If
 
    Next

Answer 2

Private Sub Command1_Click()
    For I = 1 To TreeView1.Nodes.Count
        If TreeView1.Nodes(I).Checked Then
            MsgBox TreeView1.Nodes(I).Text & "被选中"
        End If
    NextEnd SubPrivate Sub Form_Load()
    TreeView1.Checkboxes = True
    TreeView1.Nodes.Add , "R", "root", "root"
    TreeView1.Nodes.Add "root", tvwChild, "key1", "aa"
    TreeView1.Nodes.Add "key1", tvwChild, "key11", "ccc"    TreeView1.Nodes.Add "root", tvwChild, "key2", "bb"
    TreeView1.Nodes.Add "key2", tvwChild, "key21", "ddd"
    TreeView1.Nodes.Add "key2", tvwChild, "key211", "eee"
    For I = 1 To TreeView1.Nodes.Count
        TreeView1.Nodes(I).Expanded = True
    Next
End Sub