-- 作者:cd_tdh
-- 发布时间:2021/9/2 14:17:00
--
这样点击二级节点,其父节点图标没有更换成功,不是到是不是我逻辑没理解对。
窗口加载后代码如下:
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1") tv.BuildTree("导航", "分组|名称","","序号") For Each nd As WinForm.TreeNode In tv.AllNodes If nd.Level = 0 Then nd.Ic nd.ForeColor = Color.red ElseIf nd.level = 1 Then nd.Ic End If Next
AfterSelectNode事件代码如下:
Select Case e.Node.Level Case 0 e.Node.SelectedIc Case 1 e.Node.SelectedIc e.Node.ParentNode.selectedic End Select
目前点击二级节点的效果是这样,但是其父节点还是显示的图标一,不是图标三
此主题相关图片如下:4.jpg

[此贴子已经被作者于2021/9/2 14:17:34编辑过]
|