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
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
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
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
此例子添加几个 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
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