Foxtable(狐表)用户栏目专家坐堂 → 字体保存与获取


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

主题:字体保存与获取

帅哥哟,离线,有人找我吗?
飞云
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:493 积分:5997 威望:0 精华:0 注册:2015/4/5 14:08:00
字体保存与获取  发帖心情 Post By:2018/4/27 20:32:00 [只看该作者]

老师,请问字体(字体、字号、样式)保存到表中用什么类型,怎么调用,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/4/27 20:55:00 [只看该作者]

http://www.foxtable.com/webhelp/scr/0494.htm

Name:  字体名称。字符
Size:  字体大小,单位为磅。双精度
Style: 可选参数,字体样式,FontStyle型枚举。字符

 回到顶部
帅哥哟,离线,有人找我吗?
飞云
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:493 积分:5997 威望:0 精华:0 注册:2015/4/5 14:08:00
  发帖心情 Post By:2018/4/28 7:16:00 [只看该作者]

Dim 变量名 As New Font(dr(“字体”), dr(“字号”), dr(“字体样式”))
这样不可以吧,请问要怎么赋值?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/28 9:24:00 [只看该作者]

字体->字符类型

字号->双精度小数

字体样式->整数或者小数

 

赋值的时候这样写

 

dim st as FontStyle = cint(dr("字体样式"))
Dim 变量名 As New Font(cstr(dr("字体")), csng(dr("字号")), st)


 回到顶部
帅哥哟,离线,有人找我吗?
飞云
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:493 积分:5997 威望:0 精华:0 注册:2015/4/5 14:08:00
  发帖心情 Post By:2018/4/28 14:37:00 [只看该作者]

表格数据
字符:字体     宋体 
双精度:字号    12
样式:字符    Regular


Dim fn As New Font(cstr(dr("字体")), 12,FontStyle.Bold)
.font=fn
错误信息
.NET Framework 版本:2.0.50727.8825
Foxtable 版本:2018.3.9.1
错误所在事件:窗口,绘图板,Button2,Click
详细错误信息:
从字符串“Regular”到类型“Integer”的转换无效。
输入字符串的格式不正确。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/28 14:54:00 [只看该作者]

样式,要保存数字,而不是字符。把样式的值直接保存,如

 

Dim fnt As New Font("宋体",12,FontStyle.Bold Or FontStyle.Underline)
msgbox(fnt.Style)


 回到顶部