Foxtable(狐表)用户栏目专家坐堂 → 专业报表字体设置出错


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

主题:专业报表字体设置出错

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


加好友 发短信
等级:八尾狐 帖子:1909 积分:16987 威望:0 精华:0 注册:2014/7/29 19:09:00
专业报表字体设置出错  发帖心情 Post By:2015/1/16 17:10:00 [只看该作者]

Dim s As String
s = "ABC"
rx = New prt.RenderText
rx.Text = s
rx.Style.Font = New Font("宋体", prt_Upfontsize, FontStyle.Bold) '设置字体

 


图片点击可在新窗口打开查看此主题相关图片如下:错误.jpg
图片点击可在新窗口打开查看

 

红色的代码想设置字体为粗体时为什么会出错,如果字体大小中间不用变量,而是下面这样就没问题

rx.Style.Font = New Font("宋体", 18, FontStyle.Bold) '设置字体

谢谢!


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/16 17:14:00 [只看该作者]

http://www.foxtable.com/help/topics/0494.htm

先声明再赋值,不要直接= NEw FONT

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


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

Dim rx As New prt.RenderText
rx.Text = "ddd"
Dim s As Integer = 18
rx.Style.Font = New Font("宋体", s, FontStyle.Bold) '设置字体

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


加好友 发短信
等级:八尾狐 帖子:1909 积分:16987 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2015/1/16 19:27:00 [只看该作者]

rx.Style.Font = New Font("宋体", prt_Upfontsize, FontStyle.Bold) '设置字体, 这句会出错中间字体大小是全局变量有值的

 

rx.Style.Font = New Font("宋体", 18, FontStyle.Bold) '设置字体 这样用没问题,中间是具体的数字。


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/17 8:56:00 [只看该作者]

用2楼的方案呗

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


加好友 发短信
等级:八尾狐 帖子:1909 积分:16987 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2015/1/17 9:47:00 [只看该作者]

不知道我下面的用法哪里不对?

Dim fnt As New Font("宋体", prt_Upfontsize, FontStyle.Bold) '设置字体
rx.Style.Font = fnt

 

这样用也会提示相同的错误,只要中间字号大小不用具体的数字,用变量就会提示出错。但因为字号大小是开放给用户可以自行设置的,所以这里必须用变量。


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/17 9:53:00 [只看该作者]

Dim fnt As New Font("宋体", Cint(prt_Upfontsize), FontStyle.Bold) '设置字体

这一刻刻

 回到顶部