以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]字体问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69303)

--  作者:pcxjxjhkw
--  发布时间:2015/6/2 18:24:00
--  [求助]字体问题
由下面代码
Dim dlg As new windows.forms.fontdialog
If dlg.showdialog = DialogResult.Ok  Then
    Output.Show(dlg.font.Tostring)
End If
返回字符串:[Font: Name=宋体, Size=9, Units=3, GdiCharSet=134, GdiVerticalFont=False]

问题:如何根据上面返回的字符串重新定义新的字体?
即:dim ft as New Font(???) ,???如何用上面的字符串代替??

谢谢
[此贴子已经被作者于2015/6/2 18:25:04编辑过]

--  作者:大红袍
--  发布时间:2015/6/2 19:40:00
--  

这样还原

 

Dim style As FontStyle = [Enum].Parse(Gettype(FontStyle), 5)
Dim size As Single = 12.5
Dim name As String = "宋体"
Dim ft As New Font(name, size, style)


--  作者:pcxjxjhkw
--  发布时间:2015/6/2 20:44:00
--  
老师,生成的字符中字体,大小,样式是不确定的。
--  作者:大红袍
--  发布时间:2015/6/2 20:46:00
--  
 你有理解意思么?你保存了 大小、样式的值,就能再次生成啊
--  作者:pcxjxjhkw
--  发布时间:2015/6/2 20:59:00
--  
我保存的是整个字符串,现要根椐该字符串返回字体。
--  作者:大红袍
--  发布时间:2015/6/2 21:00:00
--  
 为嘛要保存整个字符串啊,一个属性一个属性的保存。也可以自己保存成字符串,这样取出来也容易啊
--  作者:游
--  发布时间:2015/6/2 21:39:00
--  
D.Font = New Font("[Font: Name=宋体, Size=9, Units=3, GdiCharSet=134, GdiVerticalFont=False]",12)

第二个参数是字号,你自己从字符串里去取吧。