对象边框
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
doc As New PrintDoc '定义一个报表执行结果:
示例三
可以设置边框的类型,例如:
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()
'预览
执行结果: