以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何打开窗口后折叠任务栏  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49793)

--  作者:智友软件工作室
--  发布时间:2014/4/24 9:33:00
--  [求助]如何打开窗口后折叠任务栏

原窗口这样


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140424092806.png
图片点击可在新窗口打开查看
想要打开窗口实现这样


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140424092942.png
图片点击可在新窗口打开查看



我在窗口afterload中贴入代码这样


Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For
Each page As WinForm.TopicPage In tpb.Pages
        page.Collapsed =
True

Next


打开窗口后界面这样折叠效果有瑕疵


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140424093211.png
图片点击可在新窗口打开查看



--  作者:狐狸爸爸
--  发布时间:2014/4/24 9:34:00
--  
这个一直有瑕疵,先忍着。
--  作者:智友软件工作室
--  发布时间:2014/4/24 9:36:00
--  
以下是引用狐狸爸爸在2014-4-24 9:34:00的发言:
这个一直有瑕疵,先忍着。

有没有折中的解决方案呢?
--  作者:有点甜
--  发布时间:2014/4/24 9:44:00
--  
 这个好像真没有......办法
--  作者:狐狸爸爸
--  发布时间:2014/4/24 9:50:00
--  
呵呵,想起来了,可有看一下基本功能演示文件的导航窗口是怎么处理的,先收缩任务页面,再添加任务,最后留意TimerClick事件,打开一个页面后,过0.35秒之后再收缩之前的页面,不完美,勉强够用。
[此贴子已经被作者于2014-4-24 9:55:42编辑过]

--  作者:ibehujun
--  发布时间:2014/5/8 23:30:00
--  

代码参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50553&page=1&star=1