边距设置

Padding属性和Spacing有点类似,Spacing用于设置和其他对象之间的间隔,而Padding用于设置对象内容和对象边界之间的距离,通常称之为边距。
Padding包括四个子属性:

All:     全部方向的边距
Top:    上边距
Bottom:  下边距
Left: : 左边距
Right:   右边距

示例一

Dim doc As New PrintDoc '定义一个报表
Dim
rt As New prt.RenderText '定义一个文本对象
rt.Text =
"Hello Foxtable" '设置文本对象的内容
rt.Width =
40 '宽度为40毫米
rt.Height =
40 '宽度为40毫米
rt.Style.Borders.All = New prt.Linedef(
1, Color.Red) '设置边框
rt.Style.Padding.Top =
25 '上边距25毫米
rt.Style.Padding.Left =
5 '左边距5毫米

doc.Body.Children.Add(rt)
'将文本对象加入到报表
doc.Preview()
'预览

执行结果:

实例二

Dim doc As New PrintDoc() '定义一个报表
Dim
rt As prt.RenderText '定义一个文本对象
For
i AS integer = 0 To 10
    rt = New prt.RenderText()
'创建文本对象
    rt.Text =
"Hello Foxtable " & i '设置文本对象的内容
    rt.Width =
"Auto" '自动设置宽度
    rt.Style.Padding.All =
2 '所有方向的边距都设为2
    rt.Style.Spacing.All =
2
    rt.Style.Borders.All = New prt.Linedef(
1, Color.Red) '设置边框
    doc.Body.Children.Add(rt)
'将文本对象加入到报表
Next

doc.Preview()
'预览

执行效果:

你可以删除这一行,看看执行效果有什么不同:

rt.Style.Padding.All = 2 '所有方向的边距都设为2


本页地址:http://www.foxtable.com/webhelp/topics/1178.htm