- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]任务栏（TopicBar）页面间隔可以缩小吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=151185)
-- 发布时间：2020/6/17 14:17:00
-- [求助]任务栏（TopicBar）页面间隔可以缩小吗？
任务栏（TopicBar）页面间隔太大了，好难看。可以缩小吗？
-- 发布时间：2020/6/17 14:23:00
--
Dim tc = e.Form.Controls("TopicBar1").BaseControl
tc.pageOffset =2
-- 发布时间：2020/6/17 15:02:00
--
设计好的，为什么打开窗口后，折叠就重叠了。
此主题相关图片如下：设计.png
此主题相关图片如下：预览.png
代码如下：我是加载在AfterLoad 事件中的。
Dim tp1 As WinForm.TopicPage = e.Form.Controls("TopicBar1").Pages("页面1")
Dim tp2 As WinForm.TopicPage = e.Form.Controls("TopicBar1").Pages("页面2")
Dim tp3 As WinForm.TopicPage = e.Form.Controls("TopicBar1").Pages("页面3")
Dim tp4 As WinForm.TopicPage = e.Form.Controls("TopicBar1").Pages("页面4")
tp1.Collapsed = True
tp2.Collapsed = True
tp3.Collapsed = True
tp4.Collapsed = True
-- 发布时间：2020/6/17 15:08:00
--
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
Dim t = tpb.basecontrol
t.Animation = 0 \'关闭动画效果
For Each page As WinForm.TopicPage In tpb.Pages
page.Collapsed = True
Next
-- 发布时间：2020/6/17 15:14:00
--
仍然不行。
或者告诉我，他这个导航栏是怎么实现的，也可以。
[此贴子已经被作者于2020/6/17 15:14:35编辑过]
-- 发布时间：2020/6/17 15:45:00
--
别人怎么做的我也不知道
如果还不行，上传实例说明
-- 发布时间：2020/6/17 16:06:00
--
现在可以了。
那么页面标题的高度可以设置的大一些吗？
这些属性，帮助里都是没找到的。
-- 发布时间：2020/6/17 16:19:00
--
参考：http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=137283&skin=0
-- 发布时间：2020/6/17 16:45:00
--
代码我是加载在AfterLoad 事件中的。用的您 给我链接代码。
提示：
未找到类型“ooOo o”的公共成员“PageStyle”。
-- 发布时间：2020/6/17 17:21:00
--
我测试没有问题，上传实例说明