Foxtable(狐表)用户栏目专家坐堂 → TopicLink 循环遍历


  共有1765人关注过本帖树形打印复制链接

主题:TopicLink 循环遍历

帅哥哟,离线,有人找我吗?
puma
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:365 积分:3056 威望:0 精华:0 注册:2023/6/7 16:07:00
TopicLink 循环遍历  发帖心情 Post By:2024/4/15 12:59:00 [只看该作者]

需求:单击某个导航的时候,添加一个logo。
方法:先清除所有的logo。在指定的行添加
问题:TopicLink  怎么循环遍历,清除下top的logo。

Dim tpb As WinForm.TopicBar = Forms("导航").Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
msgbox(page.Name)
    'For Each  tpl As WinForm.TopicLink In pages.TopicLink
        'msgbox("tpl.name")
    'Next
    'If page.Name <> e.Page.Name Then
    'page.Collapsed = True
    'End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/15 13:34:00 [只看该作者]

    For Each  tpl As WinForm.TopicLink In page .Links
        tpl.ImageFile =nothing
    Next

 回到顶部
帅哥哟,离线,有人找我吗?
puma
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:365 积分:3056 威望:0 精华:0 注册:2023/6/7 16:07:00
  发帖心情 Post By:2024/4/15 13:52:00 [只看该作者]

感谢!蓝板,已成功实现。贴下我的代码


Dim pageName As String =  args(0)
Dim linkName As String = args(1)

Dim tpb As WinForm.TopicBar = Forms("导航").Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    For Each  tpl As WinForm.TopicLink In page .Links
        tpl.ImageFile =Nothing
    Next
Next


Dim tl As WinForm.TopicLink
tl = Forms("导航").Controls("TopicBar1").Pages(pageName).Links(linkName)
tl.ImageFile = "右箭头.png"

 回到顶部