以文本方式查看主题

-  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=83069)
--  作者：cyl123
--  发布时间：2016/3/30 18:50:00
--  动态生成的新版label边框失效

动态生成的新版label边框失效，afterload代码同时显示边框就有效，分开就不行了

 

afterload代码

Dim lbl As WinForm.Label =  e.form.CreateControl("控件名称" , ControlTypeEnum.Label )
e.form.AddControl(lbl)

 

按钮代码

Dim lbl As WinForm.Label = e.Form.Controls("控件名称")

lbl.BorderStyle = BorderStyle.FixedSingle
lbl.TextAlign = ContentAlignment.MiddleCenter
lbl.BorderColor = Color.Red
--  作者：大红袍
--  发布时间：2016/3/30 19:39:00
--  

顺序要换一下

 

lbl.BorderColor = Color.Red

lbl.BorderStyle = BorderStyle.FixedSingle