老师，3级目录树，为什么增加了红色代码会报错呢？SelectedNode 肯定是第三级的节点，调试：n.ParentNode.name和n.ParentNode.ParentNode.name都是存在的，也是对的。
Dim pag As WinForm.TabControl = e.Form.Controls("tabControl1")
Dim st As String = pag.SelectedPage.Name
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.StopRedraw
For Each n As WinForm.TreeNode In tr.AllNodes
If n.Text.IndexOf (st) >= 0 Then
tr.SelectedNode = n
n.IconFile = "2.png"
n.ParentNode.IconFile = "3.png"
' n.ParentNode.ParentNode.IconFile = "3.png"
Else
n.Ic
End If
Next
tr.ResumeRedraw
[此贴子已经被作者于2023/4/26 14:46:31编辑过]
加好友 
发短信
Post By：2023/4/26 14:40:00 [显示全部帖子]
