边距设置
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