以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  专业报表字体设置出错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=63237)

--  作者:HappyFt
--  发布时间: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
--  发布时间:2015/1/16 17:14:00
--  
http://www.foxtable.com/help/topics/0494.htm

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

--  作者:有点甜
--  发布时间: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
--  发布时间:2015/1/16 19:27:00
--  

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

 

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


--  作者:Bin
--  发布时间:2015/1/17 8:56:00
--  
用2楼的方案呗
--  作者:HappyFt
--  发布时间:2015/1/17 9:47:00
--  

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

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

 

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


--  作者:Bin
--  发布时间:2015/1/17 9:53:00
--  
Dim fnt As New Font("宋体", Cint(prt_Upfontsize), FontStyle.Bold) \'设置字体

这一刻刻