对象边框

Style有一个子属性Borders，用于设置边框类型，Borders本身也包括四个子属性：

All:    统一设置边框
Top：   上边框
Bottom: 下边框
Left: ：左边框
Right:  右边框

边框是一个LineDef类型，创建一个Linedef的语法是：

New prt.Linedef()
New prt.Linedef(Color)
New prt.Linedef(Width, Color)
New prt.Linedef(Width, Color, DashStyle)

Color:     边框颜色。
Width:     边框宽度，单位为毫米。
DashStyle：DashStyle型枚举，包括以下可选值：

Dash       由线段构成的直线。
DashDot    由线段和点间隔构成的直线。
DashDotDot 由线段和连续两个点间隔构成的直线
Dot        由点构成的直线。
Solid      实线，这是默认值。

示例一

在命令窗口执行下面的代码，注意加粗的两行：

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Width = 40 '对象宽度为40毫米
rt.Style.Borders.All = New prt.Linedef
rt.Style.Spacing.Bottom = 3 '和下一个对象保持3毫米的距离
doc.Body.Children.Add(rt) '将文本对象加入到报表
'插入另一个文本框
rt = New prt.RenderText '再次新建一个文本框
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Width = 40 '对象宽度为40毫米
rt.Style.Borders.All = New prt.Linedef(1, Color.Green)
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

执行结果：

示例二

可以单独设置某一个方向的边框，例如：

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Width = 25 '宽度为25毫米
rt.Style.Borders.Bottom = New prt.Linedef '设置底边框
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

执行结果：

示例三

可以设置边框的类型，例如：

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Width = 25 '宽度为25毫米
rt.Style.Borders.Bottom = New prt.Linedef(0.5, Color.Red, DashStyle.Dot) '设置底边框
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

执行结果：