以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这个复杂图文生成的段落怎么换行?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154141)

--  作者:zto001
--  发布时间:2020/9/4 19:05:00
--  [求助]这个复杂图文生成的段落怎么换行?

复杂图文

RenderText对象用于打印文本,该对象中的文本格式是统一的,不能分别设置。
RenderParagraph类型专门用于打印成段文本,而且段落中的文本格式可以不同,甚至可以图文混排。
我们先在命令窗口执行下面的代码,看看RenderParagraph的不同,然后我们再具体说明RenderParagraph。

Dim doc As New PrintDoc \'定义一个报表
Dim
rpar As New prt.RenderParagraph() \'定义一个段落对象
Dim
f As New Font(rpar.Style.Font, FontStyle.Bold) \'定义一个同样但加粗的字体
rpar.Content.AddText("这是一个段落. 现在是正常文本. ")
rpar.Content.AddText("现在的文本是加粗的. ", f)
rpar.Content.AddText("这一句是红色的. ", Color.Red)
rpar.Content.AddText("这一句是上标形式,上标不再是难题. ", prt.TextPositionEnum.Superscript)
rpar.Content.AddText("现在字体加粗,而且是红色. ", f, Color.Red)
rpar.Content.AddText("现在字体加粗,红色,而且是下标形式. ", f, Color.Red, prt.TextPositionEnum.Subscript)
rpar.Content.AddText("现在又是正常的文本了. ")
rpar.Content.AddText("最后,我们来插入一个图标: ")
rpar.Content.AddImage(getimage("logon.ico"))
rpar.Content.AddText(".")
doc.body.Children.add(rpar)
Doc.Preview()
\'预览报表



如果我要在中间换行,怎么换行?


--  作者:zto001
--  发布时间:2020/9/4 19:10:00
--  
还有段落字体大小怎么设置


Dim rpar0 As New prt.RenderParagraph() \'定义一个段落对象
Dim f0 As New Font(rpar0.Style.Font, FontStyle.Bold) \'定义一个同样但加粗的字体
rpar0.Content.AddText("姓名  15616161515", f0)
rpar0.Content.AddText("湖南省 益阳市 赫山区 晓园嘉苑西二栋湖南省 益阳市 赫山区 晓园嘉苑西二栋湖南省 益阳市 赫山区 晓园嘉苑西二栋")
rpar0.Style.Font=New Font("微软雅黑", 9, FontStyle.Regular)
  rt.Cells(6,1).RenderObject=rpar0

可以设置
[此贴子已经被作者于2020/9/4 19:13:14编辑过]

--  作者:zto001
--  发布时间:2020/9/4 21:53:00
--  
    Dim rpar0 As New prt.RenderParagraph() \'定义一个段落对象
    Dim f0 As New Font(rpar0.Style.Font, FontStyle.Bold) \'定义一个同样但加粗的字体
    rpar0.Content.AddText("姓名  15616161515", f0)
rpar0.Content.AddText( vbcrlf )
    rpar0.Content.AddText("湖南省 益阳市 赫山区 晓园嘉苑西二栋湖南省 益阳市 赫山区 晓园嘉苑西二栋湖南省 益阳市 赫山区 晓园嘉苑西二栋")
    rpar0.Style.Font=New Font("微软雅黑", 9, FontStyle.Regular)
    rt.Cells(5,1).RenderObject=rpar0
可以这样换行