在单元格中绘制对角线

要在单元格格中绘制一个线条,可以先定义一个线条,其起始位置设为(0,0),终止位置随便指定,然后将线条加入到单元格中,随后指定线条的Width和Height属性。

示例

Dim doc As New PrintDoc '定义一个报表
Dim
rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt)
'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.LineDef
'将网格线类型设为默认类型
rt.Width =
90 '表宽为90毫米
rt.Height =
90 '表高为90毫米
rt.Rows.Count =
3 '设置行数
rt.Cols.Count =
3 '设置列数
Dim ln As New prt.RenderLine(0,0,1,1,New prt.Linedef) '定义一个线条
rt.Cells(
0,0).RenderObject = ln '将线条加入到单元格中。
ln.Width =
"Parent.Width"
ln.Height =
"Parent.
Height"
Doc.Preview()
'预览报表

执行结果:


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