Foxtable(狐表)用户栏目专家坐堂 → 动态生成Lable字体颜色


  共有2284人关注过本帖树形打印复制链接

主题:动态生成Lable字体颜色

帅哥哟,离线,有人找我吗?
cd_tdh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3094 积分:20656 威望:0 精华:0 注册:2016/3/28 16:57:00
动态生成Lable字体颜色  发帖心情 Post By:2021/6/28 17:28:00 [只看该作者]

老师,以下代码,动态生成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)


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/28 17:32:00 [只看该作者]

去掉样式
dc.Theme = "(none)"

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3094 积分:20656 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2021/6/28 17:39:00 [只看该作者]

终于可以了,谢谢老师,研究了好久

 回到顶部