以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  TopicLink 循环遍历  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191409)

--  作者:puma
--  发布时间:2024/4/15 12:59:00
--  TopicLink 循环遍历
需求:单击某个导航的时候,添加一个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

--  作者:有点蓝
--  发布时间:2024/4/15 13:34:00
--  
    For Each  tpl As WinForm.TopicLink In page .Links
        tpl.ImageFile =nothing
    Next

--  作者:puma
--  发布时间: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"