对象边框

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() '预览

执行结果:


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