以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  拖动窗口Panel1滑动条，背景图片会花屏。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70222)
--  作者：lhlh
--  发布时间：2015/6/17 14:33:00
--  拖动窗口Panel1滑动条，背景图片会花屏。
拖动窗口Panel1滑动条，背景图片会花屏。刷新桌面后或调整窗口大小后回复正常，如何怎么解决？上个例子。


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


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:窗口背景图.rar
--  作者：大红袍
--  发布时间：2015/6/17 15:08:00
--  

 加背景图片

 

\'加图片
Dim pnl1 As WinForm.Panel = e.Form.Controls("背景图")
pnl1.basecontrol.backgroundimage = getimage(ProjectPath & "Images\\未标题-2.png")
pnl1.basecontrol.BackgroundImageLayout = Windows.Forms.ImageLayout.Stretch
pnl1.BaseControl.Gettype().GetProperty("DoubleBuffered",Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(pnl1.BaseControl,True,Nothing)

\'加图片
pnl1 = e.Form.Controls("panel1")
pnl1.basecontrol.backgroundimage = getimage(ProjectPath & "Images\\未标题-2.png")
pnl1.basecontrol.BackgroundImageLayout = Windows.Forms.ImageLayout.Stretch
pnl1.BaseControl.Gettype().GetProperty("DoubleBuffered",Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(pnl1.BaseControl,True,Nothing)
--  作者：lhlh
--  发布时间：2015/6/17 16:11:00
--  
真的解决了，谢谢！这个是什么原理，执行两次？
--  作者：大红袍
--  发布时间：2015/6/17 18:31:00
--  
以下是引用lhlh在2015/6/17 16:11:00的发言：
真的解决了，谢谢！这个是什么原理，执行两次？

 

主要是后面的panel的背景并不被前面panel1锁知晓，滚动的时候，没有处理。

 

第二段代码是给panel1也加上一个背景图片
--  作者：lhlh
--  发布时间：2015/6/17 19:58:00
--  
哦，明白了，谢谢！