如何判断treeview的某个节点被选中-急

[itcoco]

难道不是用TreeView1.Nodes.Item(i).Checked 做判断么>?我用他怎么选中了还是false?????
For i = 1 To TreeView1.Nodes.Count
Debug.Print TreeView1.Nodes(i).Text
If TreeView1.Nodes.Item(i).Checked Then
Debug.Print TreeView1.Nodes(i).Text
ss = ss & TreeView1.Nodes(i).Text
End If
Next

[还想懒够]

treeview1.nodes.item(i).selected=true or false

[itcoco]

TreeView1的CheckBoxes的属性我设置了,为true,如果不设置是不能进行选择的对么?
我用treeview1.nodes.item(i).selected也只能却定是一个被选中不是么?

[wumy_ld]

如果需要同时选择多个节点，就需要设置CheckBoxes属性为True；如果不是多选，那么用treeview1.SelectedItem就可以访问当前选中节点，比如：treeview1.SelectedItem.Text,treeview1.SelectedItem.Key。
当然，在使用前需要判断用户是否有选择
if treeview1.SelectedItem is nothing then exit sub

[itcoco]

问题是我已经 TreeView2.Checkboxes = True 了
然后我全选后,
执行这段代码For i = 1 To TreeView1.Nodes.Count
Debug.Print TreeView1.Nodes(i).Text
If TreeView1.Nodes.Item(i).Checked Then
Debug.Print TreeView1.Nodes(i).Text
ss = ss & TreeView1.Nodes(i).Text
End If
Next
ss 是空值!!!!

[wumy_ld]

Option Explicit

Private Sub Command1_Click()
Dim ss As String
Dim i As Integer

For i = 1 To TreeView1.Nodes.Count
Debug.Print TreeView1.Nodes(i).Text
If TreeView1.Nodes.Item(i).Checked Then
Debug.Print TreeView1.Nodes(i).Text
ss = ss & TreeView1.Nodes(i).Text
End If
Next

MsgBox ss
End Sub

Private Sub Form_Load()
TreeView1.Nodes.Add , , "W", "test"
End Sub

这是我测试用的，完全正常

[wumy_ld]

确认一下你的ss的定义是否是String

[bxf]

有事件NodeClick参数中的node就是选中的节点，看一下你就什么都明白了

[wumy_ld]

For i = 1 To TreeView1.Nodes.Count
Debug.Print TreeView1.Nodes(i).Text
If TreeView1.Nodes(i).Checked Then
Debug.Print TreeView1.Nodes(i).Text
ss = ss & TreeView1.Nodes(i).Text
End If
Next

TreeView1的CheckBoxes属性设置了吗？

[itcoco]

多谢各位的回答,我发现我犯了一个弱智的问题!
我今天早上也终于找到原因了,我form上有两个treeview我是对第二个treeview上测试多选,结果代码上写的却是treeview1