Foxtable(狐表)用户栏目专家坐堂 → [求助]这个复杂图文生成的段落怎么换行?


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

主题:[求助]这个复杂图文生成的段落怎么换行?

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


加好友 发短信
等级:六尾狐 帖子:1465 积分:10403 威望:0 精华:0 注册:2018/10/16 11:42:00
[求助]这个复杂图文生成的段落怎么换行?  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1465 积分:10403 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1465 积分:10403 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By: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
可以这样换行

 回到顶部