| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于任务栏 (http://foxtable.com/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 |