以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请测试:4.19版动态生成控件的颜色问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149048)

--  作者:y2287958
--  发布时间:2020/4/22 8:29:00
--  请测试:4.19版动态生成控件的颜色问题
如下动态生成的标签,颜色赋值无效。请测试。
Dim lbl As WinForm.Label
lbl = Forms("窗口1").CreateControl("lable1", ControlTypeEnum.Label)
lbl.Text = "Foxtable"
lbl.Left = 100
lbl.Top = 100
lbl.ForeColor = Color.red
Forms("窗口1").AddControl(lbl)

--  作者:狐狸爸爸
--  发布时间:2020/4/22 8:48:00
--  
Dim lbl As WinForm.Label
lbl = Forms("窗口1").CreateControl("lable1", ControlTypeEnum.Label)
lbl.theme = "(none)"
lbl.Text = "Foxtable"
lbl.Left = 100
lbl.Top = 100
lbl.ForeColor = Color.red
Forms("窗口1").AddControl(lbl)

--  作者:y2287958
--  发布时间:2020/4/22 9:17:00
--  
图片点击可在新窗口打开查看新知识点