- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 还是动态控件字体属性动态赋值问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62761)
-- 发布时间：2015/1/7 16:35:00
-- 还是动态控件字体属性动态赋值问题
Dim fnt As New Font("宋体",dr("_FontSize"),FontStyle.Regular)
ctl_Label.Font = fnt
如何将数据库中存储的数据赋值给上式中“字体”，“大小”，“样式”
-- 发布时间：2015/1/7 16:37:00
--
Dim fnt As New Font(dr("字体"),dr("_FontSize"),[Enum].Parse(Gettype(FontStyle), dr("样式")))
ctl_Label.Font = fnt
-- 发布时间：2015/1/7 16:42:00
--
dr（“样式”）的内容是“regular”，还是“fontstyle.regular”，还是“0” ？
-- 发布时间：2015/1/7 16:43:00
--
"regular"
-----------------
最好是直接存 0 值，这样就不用写 [Enum].Parse(Gettype(FontStyle), "regular")
[此贴子已经被作者于2015-1-7 16:42:55编辑过]
-- 发布时间：2015/1/7 16:49:00
--
此主题相关图片如下：qq截图20150107164545.png
“Dim fnt As New Font(dr("_FontName"),dr("_FontSize"),[Enum].Parse(Gettype(FontStyle), dr("_FontStyle")))
ctl_Label.Font = fnt”
上述代码报错如上图
-- 发布时间：2015/1/7 16:52:00
--
Dim fnt As New Font(dr("_FontName"),dr("_FontSize"),0)
-- 发布时间：2015/1/7 16:53:00
--
Dim fnt As New Font("宋体",dr("_FontSize"),0)
ctl_Label.Font = fnt
此主题相关图片如下：qq截图2015-2.png
-- 发布时间：2015/1/7 16:58:00
--
直接
Dim fnt As New Font("宋体",14,0) 呢? |
-- 发布时间：2015/1/7 16:58:00
--
“Dim fnt As New Font("宋体",dr("_FontSize"),FontStyle.Regular)”
只有上述这个可以通过，就是字大小可以调用数据库数据，一旦字体和样式调用数据库数据就出错，我的数据库中字体为字符型，样式为微整型
-- 发布时间：2015/1/7 17:00:00
--
Dim t As FontStyle = 0
Dim fnt As New Font("宋体", 12, t)