以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何遍历WinForm.TopicBar的每一个项目  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75745)
--  作者：ljh29206
--  发布时间：2015/10/14 9:36:00
--  如何遍历WinForm.TopicBar的每一个项目

        If Typeof c Is WinForm.TopicBar Then
            Dim trv As WinForm.TopicBar  = f.Controls(c.name)
            For Each page As WinForm.TopicPage In trv.Pages
            For Each a As WinForm.TopicLink In page
            output.show (a.text)

             Next
            Next

 

这样写错的！ 不懂怎么写！
--  作者：ljh29206
--  发布时间：2015/10/14 9:47:00
--  

        Else If Typeof c Is WinForm.TopicBar Then
            Dim trv As WinForm.TopicBar  = f.Controls(c.name)
            For Each page As WinForm.TopicPage In trv.Pages
            For Each nd As WinForm.TopicLink In page.Links
          output.show("OK")

            Next
            Next

 

好了

[此贴子已经被作者于2015/10/14 9:46:39编辑过]