以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]字体问题  (http://foxtable.com/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)

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