以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助] 如何遍历NavBar 控件中TopicBar 的 Links  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117212)

--  作者：2900819580 --  发布时间：2018/4/8 21:25:00 --  [求助] 如何遍历NavBar 控件中TopicBar 的 Links [求助] 如何遍历NavBar 控件中TopicBar 的 Links   如例子  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目15.table

--  作者：2900819580 --  发布时间：2018/4/8 21:35:00 --   找到了一个方法 ，还有没有更优的代码 Dim nb As WinForm.NavBar = e.Form.Controls("NavBar1") For Each page As WinForm.NavPage In nb.NavPages     For Each tp As WinForm.TopicBar In page.Children         For Each pg As WinForm.TopicPage In e.Form.Controls(tp.Name).Pages             For Each tl As WinForm.TopicLink In pg.Links                 e.Form.Controls("TextBox1").text &= "|" & tl.Name                             Next         Next     Next Next

--  作者：有点甜 --  发布时间：2018/4/8 23:36:00 --   只有你2楼这个方法