Foxtable(狐表)用户栏目专家坐堂 → 关于窗口中的状态栏


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

主题:关于窗口中的状态栏

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


加好友 发短信
等级:四尾狐 帖子:847 积分:10700 威望:0 精华:0 注册:2016/5/6 14:34:00
关于窗口中的状态栏  发帖心情 Post By:2017/4/24 13:28:00 [只看该作者]

窗口中的状态栏,其中有个Label,我能仅仅改变这个Label的字体色和背景色不?
[此贴子已经被作者于2017/4/24 13:28:49编辑过]

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/24 14:09:00 [只看该作者]

Dim zcd = e.Form.Strips("主菜单").basecontrol
zcd.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
Dim m = e.Form.Strips("主菜单").Items("项目1").basecontrol
m.Font = new Font("黑体",12)
m.forecolor = color.red
m.backcolor = color.black


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


加好友 发短信
等级:四尾狐 帖子:847 积分:10700 威望:0 精华:0 注册:2016/5/6 14:34:00
  发帖心情 Post By:2017/4/24 14:18:00 [只看该作者]

以下是引用有点色在2017/4/24 14:09:00的发言:

Dim zcd = e.Form.Strips("主菜单").basecontrol
zcd.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
Dim m = e.Form.Strips("主菜单").Items("项目1").basecontrol
m.Font = new Font("黑体",12)
m.forecolor = color.red
m.backcolor = color.black

这个方法我知道的。我说的只仅仅改变这一个Item。 如果zcd.RenderMode = System.Windows.Forms.ToolStripRenderMode.System,会把整个工具条风格都改变了。


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/24 14:20:00 [只看该作者]

以下是引用Hopenight在2017/4/24 14:18:00的发言:

这个方法我知道的。我说的只仅仅改变这一个Item。如果zcd.RenderMode = System.Windows.Forms.ToolStripRenderMode.System,会把整个工具条风格都改变了。

 

必须把风格修改了你才能修改某一个item的。

 

你可以设置状态栏整体的背景颜色等。


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/24 14:25:00 [只看该作者]

 你可以设置背景颜色,也可以设置背景图片

 

Dim zcd = e.Form.Strips("状态栏").basecontrol
zcd.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
Dim m = e.Form.Strips("状态栏").Items("项目1").basecontrol
m.Font = new Font("黑体",12)
m.forecolor = color.red
m.backcolor = color.black

 

'zcd.BackColor = Color.Blue

'zcd.BackgroundImage = GetImage("g:\test.jpg")
'zcd.BackgroundImageLayout = 3


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


加好友 发短信
等级:四尾狐 帖子:847 积分:10700 威望:0 精华:0 注册:2016/5/6 14:34:00
  发帖心情 Post By:2017/4/24 14:38:00 [只看该作者]

好的,谢谢!
看来只能通过变通的方式达到目的了...

 回到顶部