以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] TopicBar 判读是否有page页的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96534)
--  作者：菜鸟王中王
--  发布时间：2017/2/22 20:13:00
--  [求助] TopicBar 判读是否有page页的问题
可否
首先判断是否有相应的page页面，如果有 更新相应的 links
如果没有添加pages页面再更新links
谢谢
--  作者：菜鸟王中王
--  发布时间：2017/2/22 20:14:00
--  
首先我不希望再控件上加page页面
二、貌似帮助上没有判断是否有pages页面的内容
--  作者：有点色
--  发布时间：2017/2/22 20:25:00
--  

循环每一个page判断，才行。

 

Dim tpb As WinForm.TopicBar = Forms("窗口1").Controls("TopicBar1")
Dim contains As Boolean = False
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name = "xxx" Then
        contains = True
        Exit For
    End If
Next
msgbox(contains)