主题：还是动态控件字体属性动态赋值问题

                    Dim fnt As New Font("宋体",dr("_FontSize"),FontStyle.Regular)
                    ctl_Label.Font = fnt

                     如何将数据库中存储的数据赋值给上式中“字体”，“大小”，“样式”

 

  Dim fnt As New Font(dr("字体"),dr("_FontSize"),[Enum].Parse(Gettype(FontStyle), dr("样式")))
                    ctl_Label.Font = fnt

dr（“样式”）的内容是“regular”，还是“fontstyle.regular”，还是“0” ？

"regular"

 

-----------------

 

最好是直接存 0 值，这样就不用写 [Enum].Parse(Gettype(FontStyle), "regular")

此主题相关图片如下：qq截图20150107164545.png

 “Dim fnt As New Font(dr("_FontName"),dr("_FontSize"),[Enum].Parse(Gettype(FontStyle), dr("_FontStyle")))
 ctl_Label.Font = fnt”

上述代码报错如上图

Dim fnt As New Font(dr("_FontName"),dr("_FontSize"),0)

Dim fnt As New Font("宋体",dr("_FontSize"),0)
ctl_Label.Font = fnt

此主题相关图片如下：qq截图2015-2.png

直接 

Dim fnt As New Font("宋体",14,0)  呢?

“Dim fnt As New Font("宋体",dr("_FontSize"),FontStyle.Regular)”

只有上述这个可以通过，就是字大小可以调用数据库数据，一旦字体和样式调用数据库数据就出错，我的数据库中字体为字符型，样式为微整型

Dim t As FontStyle = 0
Dim fnt As New Font("宋体", 12, t)