排列方式

你也许已经留意到，在之前的例子中，对象都是从上到下排列的，能不能从左到右，或者先从左到右，到达右边界之后，再另起一行？
答案是肯定的，否则这个报表工具也太“笨”了。
所有的容器(包括报表)都有一个Stacking属性，可以用来改变这种默认的排列方式，该属性为StackingRulesEnum型枚举，共有三个可选值：

• BlockTopToBottom
  从上到下排列，当到达下边界的时候，在垂直方向增加一页，这是默认值。
   

• BlockLeftToRight
  从左到右排列，当到达右边界的时候，在水平方向增加一页。
     

• InlineLeftToRight
  从左到右排列，当到达右边界的时候，另起一行继续排列，如果到达下边界，在垂直方向增加一页。

示例：

Dim doc As New PrintDoc() '定义一个报表
Dim rt As prt.RenderText '定义一个文本对象
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
For i AS integer = 0 To 10
    rt = New prt.RenderText() '创建文本对象
    rt.Text = "Hello Foxtable " & i '设置文本对象的内容
    rt.Width = 39 '宽度为39毫米
    rt.Height = 35 '宽度为35毫米
    rt.Style.Spacing.All = 2 '设置各个方向的间隔
    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() '预览

执行结果：