以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何修改窗口菜单中Label的字体与颜色？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87008)
--  作者：mxko
--  发布时间：2016/6/30 16:43:00
--  [求助]如何修改窗口菜单中Label的字体与颜色？
如题，代码如下会报错： 
Dim ZTStyle As New Font("宋体", 12, FontStyle.Bold)
        
        With e.Strip.Items("提示")
            .Visible = True
            .Text = "数据正在加载中…………"
            .ForeColor = Color.Red
            .Font = ZTStyle
        End With
--------------------------
求高手帮忙
--  作者：Hyphen
--  发布时间：2016/6/30 17:07:00
--  
e.Form.Strips("工具栏1").basecontrol.RenderMode = 2
Dim le = e.Form.Strips("工具栏1").Items("项目1").BaseControl
le.Font = New Font("宋体", 12, FontStyle.Bold)
le.ForeColor = System.Drawing.Color.Red
--  作者：mxko
--  发布时间：2016/6/30 17:14:00
--  
非常感谢