Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 还原字体的简便方法


  共有3015人关注过本帖树形打印复制链接

主题：[求助] 还原字体的简便方法
帅哥哟，离线，有人找我吗？
lsy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		[求助] 还原字体的简便方法  发帖心情 Post By：2015/11/11 10:08:00 [显示全部帖子]

Dim str As String = CurrentTable.Font.Name & "|" & CurrentTable.Font.Size & "|" & CurrentTable.Font.Style
Output.Show(str)  'str = "宋体|9|0"

CurrentTable.Font = New Font(str.Split("|")(0),CInt(str.Split("|")(1)),CInt(str.Split("|")(2)))

红色部分报错。

可以用动态函数解决问题，但是太啰嗦：
Dim fntstyle() As String = {"FontStyle.Regular","FontStyle.Bold","FontStyle.Italic","FontStyle.Bold Or FontStyle.Italic","FontStyle.Regular Or FontStyle.Underline","FontStyle.Bold Or FontStyle.Underline", _
"FontStyle.Italic Or FontStyle.Underline","FontStyle.Bold Or FontStyle.Italic Or FontStyle.Underline","FontStyle.Regular Or FontStyle.Strikeout","FontStyle.Bold Or FontStyle.Strikeout", _
"FontStyle.Italic Or FontStyle.Strikeout","FontStyle.Bold Or FontStyle.Italic Or FontStyle.Strikeout","FontStyle.Regular Or FontStyle.Strikeout Or FontStyle.Underline", _
"FontStyle.Bold Or FontStyle.Strikeout Or FontStyle.Underline","FontStyle.Italic Or FontStyle.Strikeout Or FontStyle.Underline","FontStyle.Bold Or FontStyle.Italic Or FontStyle.Strikeout Or FontStyle.Underline"}

Dim code As String
Code = "Dim fnt As Font = New Font(""" & str.Split("|")(0) & """," & CInt(str.Split("|")(1)) & "," & fntstyle(str.Split("|")(2)) & ")" & vbcrlf
Code = Code & "Return fnt"
Functions.Remove("字体")
Functions.Add("字体",Code)
Functions.Complie()
CurrentTable.Font = Functions.Execute("字体")

有没有简便的方法，还原字体？
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2015/11/11 10:24:00 [显示全部帖子]

原来如此，谢谢。
Dim str As String = CurrentTable.Font.Name & "|" & CurrentTable.Font.Size & "|" & CurrentTable.Font.Style
Dim style As FontStyle = CInt(str.Split("|")(2))
CurrentTable.Font = New Font(str.Split("|")(0),CInt(str.Split("|")(1)),style)
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2015/11/11 10:34:00 [显示全部帖子]

以下是引用逛逛在2015/11/11 10:25:00的发言：
CurrentTable.Font = CurrentTable.Grid.DefaultFont


存储字体值，和还原字体值，是两个场景。
存储是以文本的形式，还原不是重现数据表的现有的字体，是以前某个时点存储的字体。

[此贴子已经被作者于2015/11/11 10:36:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2015/11/11 15:46:00 [显示全部帖子]

以下是引用逛逛在2015/11/11 14:45:00的发言：

 

 

理解错了？

 

 

 

1、  字体和文本互换<!--?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /-->

 

'获取字体并转文本

Dim f As font = CurrentTable.Font

Dim fc As FontConverter = New FontConverter()

Dim strf As String = fc.ConvertToInvariantString(f)

Output.show( strf)

 

'文本转字体

 

Dim str As String = "宋体-PUA, 12pt, style=Bold, Italic"

Dim fc As FontConverter = New FontConverter()           

Dim f As Font = fc.ConvertFromString(str)

CurrentTable.Font = f



是个很好的方法。

谢谢！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询