以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于窗口闪屏的思考与求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66667)

--  作者:新航程小何
--  发布时间:2015/4/11 15:24:00
--  关于窗口闪屏的思考与求助

各位老师,我做了一个窗口1,背景是一张图片,每次在切换窗口的时候,也就是从一个窗口到这个窗口,这中间的过程如下代码

forms(“窗口1”).show

maintable=tables(“表A”)

forms(“窗口2”).close

其中窗口2的主表是表K

我发现每次从窗口2打开窗口1,主表也从表K转向表A,我观察到,窗口的闪屏现象是伴随着主表的改变而闪屏。所以我想有木有啥代码可以在打开窗口1之前可以直接打开了表A,也就是到了表A之后再打开窗口

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.zip


--  作者:Bin
--  发布时间:2015/4/11 15:33:00
--  
用双缓存,在窗口1ALterload事件加入代码

Dim p1 As WinForm.SplitPanel = e.Form.Controls("SplitContainer1").Panel1
Dim p2 As WinForm.SplitPanel = e.Form.Controls("SplitContainer1").Panel2
p1.baseControl.Gettype().GetProperty("DoubleBuffered",  Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(p1.baseControl,True,Nothing)
p2.baseControl.Gettype().GetProperty("DoubleBuffered",  Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(p2.baseControl,True,Nothing)

--  作者:新航程小何
--  发布时间:2015/4/11 15:37:00
--  
谢谢bin老师,好了