设置图片

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