以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  页面集合背景设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159844)

--  作者:udp狐表
--  发布时间:2021/1/11 15:25:00
--  页面集合背景设置
\'Dim fl As String = ProjectPath & "images\\背景.png"
\'\'
\'Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
\'tab.TabPages(0).BackgroundImage = GetImage(fl)
\'\'tab.TabPages(0).BackgroundImageLayout = ImageLayout.Stretch

\'tab.baseControl.Gettype().GetProperty("DoubleBuffered",  Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(tab.baseControl,True,Nothing)

这个最后一段的代码是干什么的没看懂

--  作者:有点蓝
--  发布时间:2021/1/11 15:28:00
--  
开启双缓冲,应该是为了避免图片刷新闪
--  作者:udp狐表
--  发布时间:2021/1/11 15:31:00
--  
那个给页面集合添加背景的时候应该注意一点什么,我拉伸之后就是stretch,图片都变形了
--  作者:有点蓝
--  发布时间:2021/1/11 15:37:00
--  
tab.TabPages(0).BackgroundImageLayout = 0 \'1,2,3....自己测试不同效果
--  作者:udp狐表
--  发布时间:2021/1/11 15:49:00
--  
Dim p  = e.Form.Controls("TabControl1")
p.TabPages(0).BackgroundImage = GetImage(ProjectPath & "images\\背景.png")
p.TabPages(0).BackgroundImageLayout = 1

我现在用的这个程序,取1的话效果很好,但是改变控件值时,窗口会闪烁要怎么处理

--  作者:有点蓝
--  发布时间:2021/1/11 16:04:00
--  
就是1楼的最后一段代码,如果没有效,就没有办法了