以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态生成Lable字体颜色  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169743)
--  作者：cd_tdh
--  发布时间：2021/6/28 17:28:00
--  动态生成Lable字体颜色

老师，以下代码，动态生成Lable后，Lable字体颜色一直修改不了，什么问题呢？

Dim dc As WinForm.Label
dc = Forms("窗口1").CreateControl("lable100",ControlTypeEnum.Label)
dc.Height = 40 \'控件高度
dc.Width = 250 \'控件宽度
dc.left = 20   \'距离左边的距离
dc.Top = 25    \'距离上边的距离
dc.TextAlign = ContentAlignment.MiddleLeft
dc.text = "********审核进度"
Dim fnt As New Font("宋体",12,FontStyle.Bold)
dc.Font = fnt
dc.ForeColor = Color.red  \'字体颜色
Forms("窗口1").AddControl(dc)
--  作者：有点蓝
--  发布时间：2021/6/28 17:32:00
--  
去掉样式
dc.Theme = "(none)"
--  作者：cd_tdh
--  发布时间：2021/6/28 17:39:00
--  
终于可以了，谢谢老师，研究了好久