对象间隔

Spacing是Style的子属性,用于设置和相邻对象的间隔,单位为毫米,Spacing自己也包括四个子属性:

All:    全部方向的间隔
Top:   上间隔
Bottom: 下间隔
Left: :左间隔
Right:  右间隔

示例:

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" '设置文本对象的内容
    rt
.Width = 40 '宽度为40毫米
    rt
.Height = 40 '宽度为40毫米
    rt.Style.Spacing.Bottom =
3 '设置下间隔为3毫米
    rt
.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
    rt
.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rt
.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
    doc
.Body.Children.Add(rt) '将文本对象加入到报表
Next

doc
.Preview() '预览

执行结果:

 

请删除下面这一行:

rt.Style.Spacing.Bottom = 3 '设置下间隔为3毫米

然后重新执行,你会发现所有对象紧挨在一起。

 


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