请教 TreeView 的问题,请大家指点!! 谢了!

sjkhy799110 2003-12-16 03:24:27

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

...全文

117 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

sjkhy799110 2003-12-16

打赏
举报

非常感谢以上三位大力相助我想马上可以完成我的任务!!
回头再来结帐.
再次感谢!!

yangfanatcsdn 2003-12-16

打赏
举报

Private Sub Command1_Click()
Dim x As collection
dim var as variant

set x = new collection

For each var in TreeView1.Nodes
if var.Checked = True Then x.add var,var.key
Next

'x包含了所有被选中节点的引用。
End Sub

SoHo_Andy 2003-12-16

打赏
举报

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 Sub

Private 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

northwolves 2003-12-16

打赏
举报

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