Foxtable(狐表)用户栏目专家坐堂 → 更改窗口,控件等背景颜色


  共有3125人关注过本帖树形打印复制链接

主题:更改窗口,控件等背景颜色

帅哥哟,离线,有人找我吗?
新航程小何
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4786 威望:0 精华:0 注册:2014/9/17 11:34:00
更改窗口,控件等背景颜色  发帖心情 Post By:2015/3/10 15:21:00 [只看该作者]

各位老师,请问怎样快速的设置窗口背景,控件一起文本框等等所有的背景颜色,系统很大,一个一个改时间太多了,批处理的是最好了,求指教?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/10 15:23:00 [只看该作者]

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

 

 

[此贴子已经被作者于2015/3/10 15:23:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
新航程小何
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4786 威望:0 精华:0 注册:2014/9/17 11:34:00
  发帖心情 Post By:2015/3/10 15:29:00 [只看该作者]

好的,谢谢老师

 回到顶部
帅哥哟,离线,有人找我吗?
新航程小何
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4786 威望:0 精华:0 注册:2014/9/17 11:34:00
补充  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
花开的声音
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8418 威望:0 精华:0 注册:2012/10/29 20:09:00
  发帖心情 Post By:2015/3/10 20:40:00 [只看该作者]

学习下,收藏

 回到顶部