Foxtable(狐表)用户栏目专家坐堂 → 导航箭头设置


  共有2553人关注过本帖平板打印复制链接

主题:导航箭头设置

美女呀,离线,留言给我吧!
动检
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:113 积分:1107 威望:0 精华:0 注册:2016/12/14 14:30:00
导航箭头设置  发帖心情 Post By: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 & "←"

 回到顶部