以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  关于任务栏  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90672)

--  作者：lk15502 --  发布时间：2016/9/19 16:20:00 --  关于任务栏 假设任务栏上有从上到下排列的三个任务页面：订单管理，生产管理，仓库管理；开始点击的是订单管理打开，页面展开，在去点击生产管理，打开的是仓库管理的各个任务，因为在订单管理展开页面前，那个位置是仓库管理的；请问老师这是BUG,还是其他原因，怎么解决？

--  作者：lk15502 --  发布时间：2016/9/19 16:23:00 --   任务栏topicpageexpanded的代码： Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1") For Each page As WinForm.TopicPage In tpb.Pages     If page.Name <> e.Page.Name Then         page.Collapsed = True     End If Next 窗口afterload事件的代码： Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1") For Each page As WinForm.TopicPage In tpb.Pages         page.Collapsed = True Next

--  作者：lk15502 --  发布时间：2016/9/19 16:28:00 --   测试一下，鼠标移动快就会出现，移动慢一点情况好一点

--  作者：有点蓝 --  发布时间：2016/9/19 16:44:00 --   把展开的动画效果关闭试试 Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1") Dim t = tpb.basecontrol t.Animation = 1 For Each page As WinForm.TopicPage In tpb.Pages         page.Collapsed = True Next

--  作者：lk15502 --  发布时间：2016/9/19 18:22:00 --   好了，有用

--  作者：lk15502 --  发布时间：2016/12/21 18:39:00 --   这是一个老问题了，一直没有解决，请教？ 假设任务栏上有从上到下排列的三个任务页面：订单管理，生产管理，仓库管理；开始点击的是订单管理打开，页面展开，在去点击生产管理，打开的是仓库管理的各个任务，因为在订单管理展开页面前，那个位置是仓库管理的；请问老师这是BUG,还是其他原因，怎么解决？

--  作者：有点色 --  发布时间：2016/12/21 20:08:00 --    你尝试把代码写到timertick事件去吧。

--  作者：lk15502 --  发布时间：2016/12/22 8:39:00 --   老师，试了，还是一样；

--  作者：有点蓝 --  发布时间：2016/12/22 8:40:00 --   上传例子说明

--  作者：lk15502 --  发布时间：2016/12/22 9:02:00 --   导航窗口所有的代码： 任务栏topicpageexpanded的代码： Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1") For Each page As WinForm.TopicPage In tpb.Pages     If page.Name <> e.Page.Name Then         page.Collapsed = True     End If Next 窗口afterload事件的代码： Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1") For Each page As WinForm.TopicPage In tpb.Pages         page.Collapsed = True Next