以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于调用窗口的问题！！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45086)
--  作者：heying325
--  发布时间：2014/1/15 12:43:00
--  关于调用窗口的问题！！
Dim ppp As WinForm.Panel = e.Form.Controls("主面板")
Forms("制作普通报价单").Open
Forms("制作普通报价单").Visible = False

Dim ymy As WinForm.Panel = Forms("制作普通报价单").Controls("Panel1")
ppp.AddControl(ymy)
ymy.Dock = Windows.Forms.DockStyle.fill
上面这段代码是我写的在某窗口中调用其他窗口内容，代码在按钮里，可是没点击一次按钮，“制作普通报价单”窗口就会闪一下，很不爽，请问有什么好办法么？
[此贴子已经被作者于2014-1-15 12:43:42编辑过]
--  作者：heying325
--  发布时间：2014/1/15 13:16:00
--  
图片点击可在新窗口打开查看
--  作者：Bin
--  发布时间：2014/1/15 15:12:00
--  
试试看在代码前加入
Forms("XX").StopRedraw

结束后加入

Forms("XX").ResumeRedraw
--  作者：heying325
--  发布时间：2014/1/15 15:53:00
--  
没用啊，还是闪一下！！图片点击可在新窗口打开查看
--  作者：Bin
--  发布时间：2014/1/15 15:54:00
--  
那就没办法了.
--  作者：有点甜
--  发布时间：2014/1/15 20:08:00
--  
 之前遇到过，应该不会闪才对的。这样弄

e.Forms.StopRedraw
forms("窗口1").Open(-1000, -1000)
Forms("窗口1").StopRedraw


结束后加入


Forms("窗口1").ResumeRedraw
e.form.StopRedraw