以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口中图片闪烁  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133652)
--  作者：fiendcat
--  发布时间：2019/4/17 16:50:00
--  [求助]窗口中图片闪烁
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:text闪烁.zip



请教大神，我新建了一窗口，要用一背景图片，上面还有分区面板，有个时间输入框和按钮。
如果时间输入超过当前日期或者点击按钮会打开信息提示窗口。
但是messagebox打开，点击确定或者关闭之后，窗口中的图片都会闪烁。
求助解决方法。
--  作者：有点甜
--  发布时间：2019/4/17 16:59:00
--  

试试

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=83950

 
--  作者：fiendcat
--  发布时间：2019/4/18 8:41:00
--  
试过了 不管用，还望大神帮忙看看我的例子，是否能解决不闪烁的问题
--  作者：fiendcat
--  发布时间：2019/4/18 9:44:00
--  
求助求助！
--  作者：有点甜
--  发布时间：2019/4/18 10:25:00
--  

中间的分割条闪烁，没办法处理

 
Dim pp = e.Form.Controls("SplitContainer1")
\'pp.baseControl.backgroundimage = getimage(ProjectPath & "images/infotouch.jpg")
\'pp.baseControl.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Dim p = e.Form.Controls("SplitContainer1")
p.baseControl.Gettype().GetProperty("DoubleBuffered",  Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(p.baseControl,True,Nothing)
p.baseControl.panel1.Gettype().GetProperty("DoubleBuffered",  Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(p.baseControl.panel1,True,Nothing)
p.baseControl.panel2.Gettype().GetProperty("DoubleBuffered",  Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(p.baseControl.panel2,True,Nothing)
e.form.baseform.windowstate = 2

[此贴子已经被作者于2019/4/18 10:25:09编辑过]
--  作者：fiendcat
--  发布时间：2019/4/18 13:35:00
--  
谢谢！！