以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  font.tostring()存到数据库,如何从数据库文本得到字体呢  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110529)

--  作者:jiangxun
--  发布时间:2017/12/5 0:52:00
--  font.tostring()存到数据库,如何从数据库文本得到字体呢

dr("字体") = line.Font.Tostring 执行后数据库存储如下字段

[Font: Name=Verdana, Size=7.8, Units=3, GdiCharSet=1, GdiVerticalFont=False]

如何将这个字段取出后,在生成空间图形是赋给图形文本字体呢?

使用line.font = Ctype(str,font) 却提示错误“类型string的值无法转换为system.drawing.font”

请求帮助


--  作者:有点蓝
--  发布时间:2017/12/5 8:57:00
--  
应该这样生成字体字符串
Dim fc As new FontConverter()
Dim s As String = fc.ConvertToString(Tables("表A").Font)
Output.Show(s)

还原这样
Dim newFont As Font = fc.ConvertFromString(s)
Tables("表A").Font = newFont 

--  作者:jiangxun
--  发布时间:2017/12/5 23:41:00
--  
非常感谢!图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看