以文本方式查看主题 - 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) |
-- 作者: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) 第二个参数是字号,你自己从字符串里去取吧。
|