以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导航箭头设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129907)
--  作者：动检
--  发布时间：2019/1/8 15:43:00
--  导航箭头设置
在导航为目录树时 如何增加箭头表示当前所点击位置 下面代码怎么改？大虾帮看看
图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

baseMainform.SuspendLayout
Dim tbp As WinForm.TreeView = e.Form.Controls("TreeView6")
For Each pg As WinForm.TreeNode In tbp.Nodes
    For Each lnk As WinForm.TreeNode In pg.Nodes
        lnk.Text = lnk.Text.Trim("←")
    Next
Next
e.Node.Text = e.Node.Text & "←"
--  作者：有点甜
--  发布时间：2019/1/8 16:18:00
--  

afterSelectNode事件

 

Dim tbp As WinForm.TreeView = e.sender
For Each pg As WinForm.TreeNode In tbp.allNodes
    pg.text = pg.text.trim("←")
Next
e.Node.Text = e.Node.Text & "←"
--  作者：动检
--  发布时间：2019/1/8 17:17:00
--  
好呢 谢谢甜老师