以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  刷新数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95238)
--  作者：cqli
--  发布时间：2017/1/13 19:35:00
--  刷新数据

你好

如何刷新代码编写TopicBar的页面和任务信息

Dim Page As WinForm.TopicPage
Page = Forms("窗口1").Controls("TopicBar1").Pages.Add("Project","项目")
Page.Links.Add("Open","打开")
Page.Links.Add("Help","帮助")
--  作者：有点蓝
--  发布时间：2017/1/13 21:28:00
--  
Dim tpb As WinForm.TopicBar = Forms("窗口1").Controls("TopicBar1")
tpb .Pages.Add("Project","项目")
Dim Page As WinForm.TopicPage = tpb .Pages("Project")
Page.Links.Add("Open","打开")
Page.Links.Add("Help","帮助")