以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  字体保存与获取  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118276)

--  作者:飞云
--  发布时间:2018/4/27 20:32:00
--  字体保存与获取
老师,请问字体(字体、字号、样式)保存到表中用什么类型,怎么调用,谢谢
--  作者:有点蓝
--  发布时间:2018/4/27 20:55:00
--  
http://www.foxtable.com/webhelp/scr/0494.htm

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

--  作者:飞云
--  发布时间:2018/4/28 7:16:00
--  
Dim 变量名 As New Font(dr(“字体”), dr(“字号”), dr(“字体样式”))
这样不可以吧,请问要怎么赋值?

--  作者:有点甜
--  发布时间:2018/4/28 9:24:00
--  

字体->字符类型

字号->双精度小数

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

 

赋值的时候这样写

 

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


--  作者:飞云
--  发布时间: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”的转换无效。
输入字符串的格式不正确。


--  作者:有点甜
--  发布时间:2018/4/28 14:54:00
--  

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

 

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