以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  更改窗口，控件等背景颜色  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65161)
--  作者：新航程小何
--  发布时间：2015/3/10 15:21:00
--  更改窗口，控件等背景颜色

各位老师，请问怎样快速的设置窗口背景，控件一起文本框等等所有的背景颜色，系统很大，一个一个改时间太多了，批处理的是最好了，求指教？
--  作者：有点甜
--  发布时间：2015/3/10 15:23:00
--  

 去每个窗口的AfterLoad写代码，比如

 

 

[此贴子已经被作者于2015/3/10 15:23:16编辑过]
--  作者：有点甜
--  发布时间：2015/3/10 15:25:00
--  

e.Form.Panel.backgroundimage = GetImage("d:\\test.jpg")

 

For Each c As Object in e.Form.Controls

    c.BackColor = Color.Red

Next
--  作者：新航程小何
--  发布时间：2015/3/10 15:29:00
--  
好的，谢谢老师
--  作者：新航程小何
--  发布时间：2015/3/10 16:10:00
--  补充

老师，我想实现对全部同类控件的颜色控制，不同类型的空间进行不同颜色的控制，经过测试textbox的功能可以，不过分区面板的就是不行

For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.textbox Then \'判断控件是否是文本框     
        c.BackColor = color.fromargb(255,205,233,207)
    ElseIf Typeof c Is WinForm.splitcontainerThen      
        c.BackColor = color.fromargb(255,215,233,247)
    End If
Next
--  作者：有点甜
--  发布时间：2015/3/10 16:18:00
--  

For Each c As object In e.Form.Controls
    If Typeof c Is WinForm.textbox Then \'判断控件是否是文本框    
        c.BackColor = color.fromargb(255,205,233,207)
    ElseIf Typeof c Is WinForm.splitcontainer Then      
        c.panel1.BackColor = color.fromargb(255,215,233,247)
        c.panel2.BackColor = color.fromargb(255,215,233,247)
    End If
Next
--  作者：花开的声音
--  发布时间：2015/3/10 20:40:00
--  
学习下，收藏