以文本方式查看主题

-  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=122321)
--  作者：rongping
--  发布时间：2018/7/23 10:48:00
--  求助动态创建的label的字体颜色的设置
这个实例是一个算命的软件，在窗口运行时可以更改字体颜色，但是到了实际应用时会恢复为黑色，求专家帮忙！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:紫微斗数.rar

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:紫微斗数.rar

[此贴子已经被作者于2018/7/23 11:07:47编辑过]
--  作者：有点甜
--  发布时间：2018/7/23 10:54:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122315&skin=0

 
--  作者：rongping
--  发布时间：2018/7/23 10:55:00
--  
没有用
--  作者：有点甜
--  发布时间：2018/7/23 11:01:00
--  

1、你给的项目无法直接测试。请说明如何测试，有什么问题？

 

2、设置forecolor以后绝对不会有问题。
--  作者：rongping
--  发布时间：2018/7/23 11:03:00
--  
我重新上传吧！第一次说文件超大了
--  作者：有点甜
--  发布时间：2018/7/23 11:05:00
--  
以下是引用rongping在2018/7/23 11:03:00的发言：
我重新上传吧！第一次说文件超大了

 

1、数据库不正确，请上传正确的数据库；

 

2、请说明如何测试，哪里有问题。
--  作者：rongping
--  发布时间：2018/7/23 11:08:00
--  
已经重新上传了
--  作者：rongping
--  发布时间：2018/7/23 11:10:00
--  
以下是引用有点甜在2018/7/23 11:01:00的发言：

1、你给的项目无法直接测试。请说明如何测试，有什么问题？

 

2、设置forecolor以后绝对不会有问题。

设置forecolor以后在窗口预览没有问题，但是应用时还是会有问题
--  作者：有点甜
--  发布时间：2018/7/23 11:20:00
--  

代码改成

 

Dim lbl As WinForm.label
lbl = e.Form.CreateControl("label1",controltypeenum.label)
lbl.text = "标签"
lbl.Left = 6
lbl.Top = 8
lbl.AutoSize = False
lbl.Width = 18
lbl.Height = 55
lbl.TextAlign =ContentAlignment.MiddleCenter
e.Form.AddControl(lbl)
lbl.foreColor = Color.red
--  作者：rongping
--  发布时间：2018/7/23 13:29:00
--  
以下是引用有点甜在2018/7/23 11:20:00的发言：

代码改成

 

Dim lbl As WinForm.label
lbl = e.Form.CreateControl("label1",controltypeenum.label)
lbl.text = "标签"
lbl.Left = 6
lbl.Top = 8
lbl.AutoSize = False
lbl.Width = 18
lbl.Height = 55
lbl.TextAlign =ContentAlignment.MiddleCenter
e.Form.AddControl(lbl)
lbl.foreColor = Color.red

谢谢！已经解决！