设置图片

Style有个ImageAlign子属性,用于设置图片的位置和拉伸方式。
ImageAlign本身包括以下子属性:

属性 说明
AlignHorz 水平对齐位置,ImageAlignHorzEnum型枚举,包括以下可选值:

Center: 居中
Left:  靠左
Right: 靠右
AlignVert 垂直对齐位置,ImageAlignVertEnum型枚举,包括以下可选值:

Bottom: 靠底
Center:居中
Top:   靠上
StretchHorz 逻辑型,是否在水平方向拉伸,默认为True
StretchVert 逻辑型,是否在垂直方向拉伸,默认为True
KeepAspectRatio 逻辑型,拉伸图片时,是否保持原始纵横比例,默认为True
TileHorz 逻辑型,图片是否在水平方向平铺,默认为False
TileVert 逻辑型,图片是否在垂直方向平铺,默认为False

示例一

假定我们希望图片居中:

Dim doc As New PrintDoc '定义一个报表对象
Dim
rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage(
"EP1.BMP") '设置图片
rm.Width =
"Parent.Width" '宽度等于页面宽度
rm.Height =
"Auto" '高度由图片大小自动决定
rm.Style.ImageAlign.StretchHorz =
False '禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
'居中显示
doc.Body.Children.Add(rm)
'将图片对象加入报表
Doc.Preview()
'预览

执行结果:

示例二

图片拉伸控制演示:

Dim doc As New PrintDoc '定义一个报表对象
Dim
rm As New prt.RenderImage '定义一个图片对象
'默认,按比例拉伸

rm.Width =
40 '设置尺寸
rm.Height =
40
rm.Image = GetImage(
"EP1.BMP") '设置图片
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
'居中显示
rm.Style.Borders.All = New prt.Linedef(
1, Color.Red) '设置边框
rm.Style.Spacing.Bottom =
5
doc.Body.Children.Add(rm)
'将图片对象加入报表
'不按比例拉伸
rm = New prt.RenderImage
'定义一个图片对象
rm.Width =
40 '设置尺寸
rm.Height =
40
rm.Image = GetImage(
"EP1.BMP") '设置图片
rm.Style.ImageAlign.KeepAspectRatio =
False '取消保持原有比例
rm.Style.Borders.All = New prt.Linedef(
1, Color.Red) '设置边框
rm.Style.Spacing.Bottom =
5
doc.Body.Children.Add(rm)
'将图片对象加入报表
'禁止拉伸
rm = New prt.RenderImage
'定义一个图片对象
rm.Width =
40 '设置尺寸
rm.Height =
40
rm.Image = GetImage(
"EP1.BMP") '设置图片
rm.Style.Borders.All = New prt.Linedef(
1, Color.Red) '设置边框
rm.Style.ImageAlign.StretchHorz =
False '禁止拉伸
rm.Style.ImageAlign.StretchVert =
False

doc.Body.Children.Add(rm)
'将图片对象加入报表
Doc.Preview()
'预览

执行结果:

示例三

将图片拉伸至页面大小打印:

Dim doc As New PrintDoc '定义一个报表对象
Dim
rm As New prt.RenderImage '定义一个图片对象
rm.Width =
"100%Parent" '设置尺寸为容器(页面)尺寸
rm.Height =
"100%Parent"
rm.Image = GetImage(
"EP1.BMP") '设置图片
rm.Style.ImageAlign.KeepAspectRatio =
False '不保持比例
doc.Body.Children.Add(rm)
'将图片对象加入报表
Doc.Preview()
'预览

 

 


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