专家坐堂-如何在窗口状态栏写信息、设置字体颜色Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=154368)

--  作者：wangjh8888
--  发布时间：2020/9/12 18:57:00
--  如何在窗口状态栏写信息、设置字体颜色

老师好
在窗口AflterLoad事件增加了状态栏：
Dim Strip As WinForm.Strip
Strip = e.Form.Strips.Add("状态栏", StripTypeEnum.StatusBar)
接下来怎么在状态栏写信息、设置字体颜色呢。谢谢

--  作者：有点蓝
--  发布时间：2020/9/13 20:04:00
--
增加状态栏

Dim Strip As WinForm.Strip
Strip = Forms("窗口1").Strips.Add("状态栏", StripTypeEnum.StatusBar)
Strip.Items.Add("Label1","Label1","",StripItemTypeEnum.Label)

在状态栏写信息
Forms("窗口1").Strips("状态栏").Items("Label1").text= "xxxx"

设置颜色
Forms("窗口1").Strips("状态栏").basecontrol.RenderMode = 1
Dim o = Forms("窗口1").Strips("状态栏").Items("Label1").basecontrol
o.font = new Font("宋体",15)
o.forecolor = Color.red